

pqucftl (^9 jiniJl 


Data tsibi^ji" jjiit j*ut 
U- - :44im 

cr ^ CjIjjVI £-^aj l>^ ^ O' *4 

SliU £)-* W\ p$k Qrtun Vi Jj-jjla \ j^ajjjt W\ d^U Jaxua j ij^ult 

£LaUjj a*/Vi JaP ^^loxlt . MSVi^a pt^jj CjIj (ljUUj) Lu3 JaJj yj ^VuaiaU 4Jt U1 ^ugjl Jj£Jt 

^ujt^jj u£LL3t fLo^uj) ^c-aUjj 4-uuj.Ia] jmLjjj *kjA^1 JJ& SIj-a 3 tdAl^a ujULnJ ^UaJLm 

jjU iilii] CjULnJl (jlaauj *Luutji]t CjI^Luuj AjLLuiII CjtjiuJt ^ ljLL^uu ^t£jlj ^AJ^Lia 

LjjV jJlL-uj j^Vli 4-ufljjL( ^c-aUjj a*/Vi Jjf' Lai 6 4 SViVuai g-aUjJt |JA Jla ^ J£ ljULLI 

J£ 4-LlaJt ^ # ti a Sjji^aJt jj^b ^1$ uu Jj ^ajj^t ^ ^jVt £V ^ f^jSfb ^ u * t 

1 nte j2j-Luu dlb CjULuU £jlSI 1 LaiiLLmt tJli Sj£tHt £#*-* ^ jt L)JJ ljLLLI £1jj! L-a £ 

g^UjJt <4^)j ^ 5^1 a^ . Sdl*^ CjI jUtj ^1\ jt Sjj^Jt ^ 4^alk SjSt^t <> f 

f$JL> UjJLt ^ 




11A£-A-1A| 


O ci^l 


© 


1 1 tUu^l JJ* 


( (j^j i j[j& ) Aj^usj 4Jli • 


^tjjlj pg. OjLc. 4^ Ja,J| Jia : o^XyO gjjlj • 

( ^jlii Ulj jSj Lai ) Ajllala 4_aja J^ji Ji&a ; a ^ j < • 

. *Liaaj UjS (JiJl iaa :of Lul jjh£ • 


« i 4> 44 i 

I A A j J. a fl . | ^ 


2uuil\ fiJA lj-ua t all ^1 AJjfca ^Jjlaj RAM ^ *'•& 

A^Lj^ <LS ^Uj J£ A^ja^t AaLuuJI ^>> jjjaxa^l Sj£t^ JlaVt ^I^LuVI ^j ^ajj dJjj . (OW^') 
. CjULuII dJA / J& (JJ$Z* “ («^l AjjaJaiailj 4 uLuiaJl CjUlaxil (jLu^l pjj uuQi 1 ^‘’■■n.‘ , « Ajjxa 4 uj 


L^dliiDI QjSj&fui uSI) Y6 jtdJj2i ftfAlJOLLHl jSJj jijiii jttij tfijj Ajm ijulLsi}t J& jLS uSIj 0* JIULifZit Jtuij uS(j 

. j3ja 4«S^I 3>Sli j^S2 l^5>A ♦ yS(j 0* j* JA^i 


iiiSdo ynVi / \ i\x^\ 


^liU oUdLH JoAk)\ 
























feMluHSlltnott 


P4uci)\ t> 9iuu)\ 


Data Type : lilULjJI 

Ai *1 p j% j «j>~ 4 ,** H ( Data Type)uL3Luil£!^)^jyjUlK V.B .Net)^jlj3 

i uLjLull |oa) j/»j. g*l4jjJI Jb XuM>«tji kU&D ji fJdhu4l L^db 

LfcO^ : ( Numeric Data Type <L.»ijJ( oULwJI: £9! 

l_£. jl j_SL<? ^1 : (Integral Numeric Type) ^ f< Ll^JjJI oULljJI • 

* p p 

11^U$ > 4^fcdLXJ^ (jfjhC?) ^Lijl 


Long 

Integer 

Short 

Byte 

oW 11 -^ 

8 

4 

2 

1 

9Mll 


jl <^SL# ^1 : (Nonintegral Numeric Type) a »**»+ j>aI1^ul11 ^u^SjJI oUL-JI • 

'. 1 ^ i A$ > 4jjJilX ClLoMjU jftlijl 


Decimal 

Double 

Single 

0 W 11 - 

^ 16 

8 

4 



CtUll JI9 LigjJ.1 ^ jftjJkluuj |( Character Data Type ) oULl+JC LJIj | 

: L4JL09 (JuL^JI Jio <Lil »i -v ti«i 114 r ^9 ^Ul ^Lij^ 


String 

Char 

oW 1 -^ 

^2 10 

2 

9Mll 


□ULuJI CjJ^ gjjJu it ^Uf 0-&$ 


Miscellaneous Data Type ■* c$ il 11 oUL_»JI : CUtS 


:1 ^ > 09 tAjfC 9? £Lj>Lj 9! A ifl Rio CtULu CH)^ J* ^aSJujjj^ **M^9 


Object 

Date 

Boolean 

oW 1 -^ 

4 

8 

2 

9Mll 


JlDl^cD poll / \ i\x^i 


2 


^in\pH tWx&U 





















































! 4j ^4 Uj ^ ^ 



uDq Long t Intager i Short«Bytedn <K oft rtiijir ul? di\ft 200 &£dpJ\ uaH tujir \i))\(^ o^4Pft* (3 \jjo 

.pftuafll o$\i oft dftl i^Wn dauiuu eUjj di^ Byte oft diyjrftfr hip\\ 

£>*) <uujJai £iUL4l tW £M0£i JUI 




f« Jl * £# 




mvamv J »mvuru*- ** 


VUV4An*V£t j£l 






JLU***M 




4a 




yes or \o |1 True or False 





WW«/n J1 ***» /I/I <>* ti)U 



JlDl^cD }d\} / \ i\x^i 


^liU ^uAiaH dv^kU 























































































pqucftl (^9 jiniJl 


4jSII S jau J^jJLk <> U^4JJ j\ Sjfib J^U. <> o^l^aJ) 

( controlname.property=value) 4*^1 o* ^ ^ 

.(Data type) *j&dt> 6 Vu 0 <p Ifik) ixuflU oiftq«dupb«U o&) dxu 9 (yviyvr oUsn: upjW&H hup 

■ dM t* «o^ 

Aj JjialuM jgiajl A_u^UJi ojlill j .t. | . ci£ Au^dUil j >*>.>* A." tt aIaa AjUS Jxj jjSil $ jib 

: ^UJI JSJiJI b US . AS *U^ Axj A ^ aUJl oi$j ^UJI £bbl 



« i 4> 44 i 

I ,4 A j J. 4 tl A | ^ 

■ i «L®lsf!w® 


jLJI t$k ijm 


. (Data Types) j* (Types ) t'jrf dj* jr*«Uf «U *»« W • 

: ^UII jsJiJl ^ us. uljjbU Back Color a u/iKU A^uib JU4I jt> US • 



. (Data Types) &bd £$j $) (Types ) £$j Ul$ tiULJI £1 jiil jlid <jJb di($rfl jfliUft US • 


ariables (illjtfMl) 


(> ^jj!U &a £jSjj ( RAM ) ASaj^il jjjjaaSJI SjSlj ^ 4 jja^» OjSj l$x* J 4 l*ai dibbj jl btbc. 

. bub (jA, uu AjjUuUil b^U^I 


JJO^dO p)\l / \ iU^l 


4 


^iu\pH tWx&U 


























WuniMoSiuull 


<jj^ (Data Types) uUe '-$-b (RAM) ij .\3 ^ Sjja^» o*L»i 

. £U»UjJI ejUJajj jAji joAjj jjUdK *Lut jj*jj &\ £j£a j difcj ^ 

: loU A^pjU 


(6jiti« jt*a J*afi u*JI LUkll A*iil Absl £| > L&k gUrfl fcjh gs ojSIkll <>i gSW«J o^A>Mr ^ • 
. $aUj*1| J*smui jUaijrftoyi gl gS** |to£J) ojUbj gL*ll £$j M«to Qlj*itt*U | 0 to gAMoaS |toi • 


toltiJI toutoU tofi g)U2| g* tol VB.Net ^ jtoto tfl jelAfctoil Jto <ul • 




Dim jjilall as ( Data Type ch^\ ) 


; JlidL U£ Data Type Ck^ £jj £ AS ^ ^ J^' H V 3 * ^ Dim <»■***- 

Dim Numberl As Integer 

Variables tilljttill 4 iMi 


! 4 lq^J ijj ajujIaj gueUjjJI Jqtj £l_Jf g_« gl q nil jLl») JuLc 

itohll to As ) $1 ojiinll ii ojmSUI *i> 4*2I g* o>*« j*auAI (toil I*# gl mm .1 


.(underscore 

ii ttiitill toA§| ^Iftaiiii^l toUcj Whll| <uLill2 toali aUUc $1 j jtoriSI v££*m gl &>^*¥ * f 


lAjtoil^ajtoJIiltoAJI 

.toitodl4>>kll underscore _ to Ac£ yattjW g* ftotfl gg&k gl g£to . f 

g^Ujtoi . (AS ,Single,me,end ,dim) :Jto vb.net ijA oj^MlI tiiUfill g* jtodll g$»w gl&to*4 31 .i 

. aj$aall <iiU£ll 

ol£*to (jifi (to^l Jto gl ^iaaliSI g* .0 


Y_name , _tamerMoh , FirstName , Ahmed2012 , Price , 

U_birthDate , U_Gender , _Name 


jldl^cD poll / \ 


oiUH oin\jxH djpjft\ 
























pqunlU ^9 juu)\ 


: al sUmi <44*1 



♦ ♦ 

^ stName 

^0*4^' d f&Ji 

Ahmed 2012 

AiLuL4 ^utVt (j ^ «lsVj AiLuL4 3jhj 

-tamerMoh 

l^j V j Ajjlxit ALj-uJL \±u 

As , Single 

I^J £awjVj 40*# it* Sjja^Ail CilaM (jA 

Data Type gLuJf !$$djUft4l 


: JUS ELclj^ u^jhuLU u-ljwLLU Data Type jL-JI £*i jLlI^I *1* 

. jMmII (jri 0‘jSii *i$mt <JA\ ^ULftll jftftft £AW \ 
&JS in il mill tfiltUtll fjls sUdjtiul I ^ Ua>& fl+i y^Ni (tuill gly t$i Aiftfti 4 I .f 

. d&ftll <>» 

Variables taij»*ai a* atu*> i 

4jULu J>Jj jl t>SLc ^IJI iJlIll ElsU jIj^L |«i 



: 4ft>ftll 4*tot*Jli lftfi£ty |ft I^T mil t>» UdlftJl jfctiJI £tf0g J$4*JI |^A$ 



Data Type O^w 1 * £> 


UserName 

String u*a j 

ha\\ -xuj) 

UserBirthDate 

Date u^iJ^ 

£UjLj 

UserGender 

Boolean 


UserNoFamily 

Integer u^j 

i jjM\ j) jii jjc- 

UserTelefoneNo 

String (j **j 



ifi^do poll / \ iU^-l 
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oiUU oiu\^U d^iU 













































































































































u)\tt\dupA) od juuH 

Event Handler gJbua ^iLuat j Aj Jj£lt Sd£U ^jlmlda £#ijA jj JaLuat 

: ^Uil b»£ cj|jj*Ut £& ^j Event Procedure * Ij^l Liaji <bJc. jjiki U j&j 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 
Dim UserName As String 

Dim UserBirthDate As Date --- 

Dim UserGender As Boolean I CjI jjilaJI (Jfr 

Dim UserNoFamily As Integer 
Dim UserTelefoneNo As String 
End Sub 
End Class 


! iUU 

: (jJrf US jaIj Dim. jtO* £*jaSj £f gilrfl <£USai • 

Dim U_Name As String, U_B_D As Date , U_Gender As Boolean 
Dim X , Y , Z As Integer 

Ut gSu ^ RAM ja^oSli djSU ^ gSUf fid <ji jUrfU • 

jnjimiH *U* ££a*J| fd*$. U*i 


:.. Assignment 


i<u* 




jjSj^ yLttll (jj jjijitl t^Ua UU j( UjUII ftUj (— ) 4dlc UAUrf $4 4i^ 


<U*Ma* 6jLi 4*214^11 ui jUajjt <ui ^ ^41 jlSUjJh W oiAl^MjUlj 



14a 


I J*UbM (= > <UUc < 


y»Vi / \ 
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oiUU dtaaU 



























































(S>\i£>\)\u)\i)\uuoU pqiinfllfeSjuull 



: ja+mi+il i\jtUf {M0^i ^Uf 

'1 < t( 

M < <||-J •' 



Dim Number As Integer 
Number = 5 

Integer ^ jj Number CP*-'* 1 

Number ( a ) =-^ j ^' 1 ^ 

Dim Numberl As Integer 

Dim Number2 As Integer 
Numberl = 5 

Number2 = Numberl 

Integer Number 1 jpl* 

Integer Number2 jc- i 

Numberl ( fl ) c-^yaj' 1 i ^ 

Nuinter2 >^U] Numberl ^ 

Dim Name As String 

Name = LabeJl.Text 

String ^ ji Name 

Name I ,abel 1 Text su-aLiJ' 1 ^ ^ 

Dim Number As Single 

Number = 7 

Number - Number / 3 

Single Numhei 

Number ( v ) '<=’ ^*j'i ^ 

jjiti J'iLi (jj Number 

Dim Number As Single = 5.6 

^ouaJ' ^uaj^aaj aj j Single Number 

.S-ial s a.jjai ^ Number Jc- J^VI fi-u' 1 ( a T0 


SLl* UUw$" " *«2» Utib' &U jJI »9bA» yatt <gft <M** <*-rf (•*! ^ jft j*«»» yA yiWIl i)U 4^9 

. ( ijli yfli ) Sijii i+ij* 

^jyi UUii gtUjJf «»haj Sjfaait y^i qi <*&*+« «8<S »)UMf #M£ jgftW £« jUCjff 4IU y4| 

! Jiitl ^‘‘* “■■ j a *“ U •! 4 *- i A 


. HjQ iJLt-’lt j 9 I j l^Lc JiLtifl <Lj( 

jif CifjaiUb i‘ii< im dJjJ} ■*■< ■!»«•« 11 m» Cit^Jll ^4 iAA jll Ctljj t 7 9 II (<|nW j'-;uUI ^ g f • 

. A ;> <i H A q | <iW Jm ji> oajjuM 4 9 1 a t< jl ^ 1 1 1) £« . Jit iiiljyw fL^tjuLLi 1^7 «11 i 

“<■»< iw«Ur rtq.inrt q ■ rt . JjjfkU *«»<». »9< *■»>*••« jrti »rti.7H j^SJ jl <>S* • 

■ JA UU jn. .rt t .7 W>t? > ( = ) 4 -«lU-H f>*+U • 

jtlJLt j-; iqiLfc jLuw i^jJU ( X ) J-; ^LgJj.rtqt ( X = X+l) : JlUl ^JjlM • 

J 5 =(X) i*_J ji LLm^LII |j| &**> Jlx 141+je jXc i^jjl ( X ) 9 IfrJLJf <ui jjjl jLSJlf 

♦ «► * * * * * ♦ * * «» 

. ( 6 ) J ( 1 + 5 ) tftLuw iqiUJ) jLuo ULa >**-*iH x ) j 4 jLUIru^i Jrt. Irt*. 7 » 

«► * «► W' ♦ * * 


[Variables till**A* 




J-idC jlJlj 1 |tij UJ^JyJI ^ J i 111 Cllj4t 7 q 11 (9^4 jrt» ><*>>«»> jVl Jj jytf 

UserGender - UserBirthDate - UserName ^^9 0^9 . ^bajujJU oM»iM 

UserTelefoneNo - UserNoFamily 


JlDl^cD ^joVj / \ i\x^\ 
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tWx&U 

































WuaDloituull 

*i^:..itl *- l ;* ,!l “ l t> * 11 Olg^lfT g^‘‘ * t<{ -' : “‘ , ‘ ' *3 “‘ ^ tl J-l a 

: &fb G\q>|\oj&<) : ol^kiName L*+i 


«* 

^ obi 

Text 

TextBoxl 

Text 

TextBox2 

Text 

TextBox3 

Checked 

RadioButtonl 

Text 

TextBox4 


fi 

qa • £jjJo ()£ i$£JI JU^ImiIj J»>« >>i*i jjj tiiU ^ Jjjyu 0^9 


: ^LJLS 



Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 

Dim UserName As String J 

Dim UserBirthDate As Date _ ^-^ 

Dim UserGender As Boolean CjIjJu-aII 

Dim UserNoFamily As Integer 

Dim UserTelefoneNo As String 1 

[ 

1 

UserName = TextBoxl.Text 

UserBirthDate = TextBox2.Text | 

If RadioButtonl. Checked = True Then _- 

UserGender = True | CjI jmIaII pJk | 

Else ^- ----- -^ 

UserGender = False 

End If 

UserNoFamily = TextBox3.Text 

UserTelefoneNo = TextBox4.Text 

End Sub 


" Ol^uLLgJJ jn tki't JjLyJI " 



. TextBoxl ob^U Text A* UserName jiJLLqJJ A 4 *£ ft • 

.TextBox2 ob^U Text A* j-« UserBirthDate jjJLLqJJ A 9 Jj ft • 

4**i C^iS bii IF AJL+* fill *2 mb ( RadioButtonl ) it&J ( Checked ) ft • 

bf Ul True -M * * w UserGender jjjLLqJJ 4j|J True jjLuu Checked iLidUtl 

. False A a * a M UserGender juLLqJJ False jjLuu Checked «Le*£ Cylf 

.TextBox3 0b^U Text A* j-0 UserNoFamily jgl tig ft -M;* ft • 

■ TextBox4 0 CMJ Text 4 1 ^4 UserTelefoneNo 4 q > f) * 



v»li / \ iUeA 9 oih\)j]\ clvcxuU 


















































u)\tt\dtyoA) p<*nni)\ <^9 juuH 

CfljuLUf ^lit^j tj jrt t 1 ^3 : ~&u 4 55CS»T ‘* M 




(jLu Aj^allit £lu Aj^alaJIj StJt 


String 

UserName 

String 

TextBoxl.Text 

jaljla jjc, 

Date 

UserBirthDate 

String 

TextBox2.Text 


Boolean 

UserGender 

Boolean 

RadioButtonl.Checked 

JSljl* Jjft 

Integer 

UserNoFamily 

String 

TextBox3.Text 


String 

UserTelefoneNo 

String 

TextBox4.Text 


$-*$: ^ ^ 4 >% Jl JjpuiL 0 4 “■■ Lo ^Lkij dj)dbj Jl^uutll 4JlJ j-SJ 9 llftj 




Variables 


JUjumI &5 ai 

Price = 50 2*£3\ 4jjLSUI jA ( =) junniiTtl^U^k jLmj^ jjjiitl dfj £l Cu? • 

Price = Price + 10 4 *j>* 3 aljll j 2*£3\ jguaalll ^ ^jyull JLgj lit UUj • 


Variables liiljrtyhM ^hSiiiil 3 


l< ^lil dI^ulU) 4 .r^g ><4> jjjX ^9 Label ^(ft.i.f obi pijLIjjjj 4 ^ hi uj^illl 11 ^ ^9 uJl.h.tl jJjjx 
^ . l^)to J^LaLLTI J^LuuJf g^gJJI oliU ^Jl Label5 jl$J-c, obf liL^L (*-S £i?l$ f , ) 4 -ajjjJL}| 1 ^ to J-oLlIII 


AusiWW 


AutoSize 

False 

Size, Location 


BorderStyle 

FixedS ingle 


o @ -£5. 


Labels 


^ji'« 
jjjjJI £ujU 


jii 0 jtfi £^i 

Djoi^l iljji ilfi 


U£*j 1 jJI 


t j JL T JuUUlJI 


: JLJi *$SJI 4jL tS J-ij-b j^-SUI Jl.gX.Iuilg J t ^ uil jjj j&Ui*t d*±J*1 gJljL* £xJuL 

Me.Label5.Text = UserName & vbCrLf & UserBirthDate & vbCrLf & UserGender & vbCrLf & _ 
UserNoFamily & vbCrLf & UserTelefoneNo 


ifi^do y»Vi / \ i\^i 
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oiu\^U djpsb\ 














































































































<S>U*U\uNiNt«aU 




. Label 5 ^ K obit Text L wil >>(t 4 g 1 2 K CjIjuLLa qou uuaj^ol frz 0 ;L-£ J-jLuuJI o^£JI 

. 4 g 12 If ( =) 4-oAL& ^ur CiljdLUl iS i-v 

. ( & vbCrLf & ) jjuLLo Jjapj 

4>%: H |0Jb^fcI mj & iLo^Lc 

.jji> j h ut ^Liul |0Jb^fcIimj (vbCrLf) S)*^f 4 g K » 
(CodeU^LJI j t* »»* jL^ tit 4JI_>> jJa-ui j-o ^L£f ^±e J9-SUI »»» kAlS j_S_c ( _ ) 4-«^-c. ^»»«« 

OflIji J ■ ^ •‘■~j fi • U;?tdUig^ i hi tl j<ub Jjjia 
■<LJL^( (Form) ^<3 r ■» oliL jUlj ( Me ) • 


! ^Jb LqS ( JdbXitu ) jjJ Click rJLu J 51 “■ j^-SLj 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 
Dim UserName As String 

Dim UserBirthDate As Date ______^-^ 

Dim UserGender As Boolean 1*1jjilaJI I 

Dim UserNoFamily As Integer 
Dim UserTelefoneNo As String 

UserName = Me.TextBoxl.Text 
UserBirthDate = Me.TextBox2.Text 
If Me.RadioButton1.Checked = True Then 
UserGender = True 

Else 

UserGender = False 
End If 

UserNoFamily = Me.TextBox3.Text 
UserTelefoneNo = Me.TextBox4.Text 


1_ 


j|Jjilaii ^ (j rturtVi | 



Me.Label5.Text = UserName & vbCrLf &UserBirthDate & vbCrLf & UserGender &_ 
vbCrLf & UserNoFamily & vbCrLf & UserTelefoneNo 
End Sub 


^uiUJll |>« F5 JajLuaJL JJLutli |«i ijiJI ZAlS r *JJbj 

IJ JLc. h i je J» -k to»H ajl q»utl ^ CtULJI JUioL jqJ jc Jajj-i ^ ^ j*Qj $1 

. Label5 jig »t H oU La (q S. >» 2 11 *f$jf » -ko J»->. >>n jj 

Til l—fis-l" 




False 

T 


LS^LtJS 


x* *tl\x/x\ 

,jOui '4' ^ 

T 


jiLlluJ: Qjjb 

E^iJl 

a>ujii| oijji oie 


JjUuaUJI 


ifi^do yjoVi / \ 
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>iUU (^u\jaH dutaaU 


























































^9-SLH ajJU J^b &±3U 2ulLS a*JLSUI dbj±* HJ p+u ■ gjjMgjl jgttS 

. jg_S3f lilJ J>b 4jlilu ^ <n >«? tut L qS.al$SXI p 3* 

i$S jtljuX L&ajlj ulLji a £)l ( * ) iLo^Lc 9 I REM 4 q K | OlidJjtlil AjLLS j h %%i Ij^jj 

: ^Jj U £ *\$£b\ ig^rjJLc ( Compiler ) Jui <>g 4-ULt {*Ij$ 


Private Sub Buttonl_Click(ByVal sender As System.Object, 
REM <JjJLs_J jULr_> J-j a jULr_> ^ 4-aJLSLJ I 0 JL^ I J_l_) L_o 
’ OIjjJLlJU <jx I 

Dim UserName As String 
Dim UserBirthDate As Date 
Dim UserGender As Boolean 
Dim UserNoFamily As Integer 
Dim UserTelefoneNo As String 

REM <3 I yJLLA, I 0 JL^J pj-3 
UserName = Me.TextBoxl.Text 
UserBirthDate = Me .TextBox2.Text 
If Me.RadioButton1.Checked = True Then 
UserGender = True 

Else 

UserGender = False 
End If 

UserNoFamily = Me.TextBox3.Text 
UserTelefoneNo = Me.TextBox4.Text 


~|^ CjtjJKl^t (jg J 





’ (3 I jdi-Li I 0 JLa> pi JjLLu> I 

Me.Label5.Text = UserName & vbCrLf &UserBirthDate & vbCrLf & UserGender &_ 
vbCrLf & UserNoFamily & vbCrLf & UserTelefoneNo 
End Sub 


: Constant 


d C£*} ^ ^ ?£ hi ( Data Types) Chi '-S-b ( RAM ) ^ ^ 6 s '-'* 

ia££ 1 * <e - ^Uj) <Laj3 CiLuLuj 'Uij jaui fU jjxjj 

: I4U u j ^ 1 /> 


(|«pa Jtafi (j*JI hUaJl M*A «tiasl > U*t giUiSI £* ojSmi ^ gSWft ©^y&>a* (**■) • 
. ^ g*kJj tau Um* gUrfl sliii gUJI £$j Mia £y|£*U foU gayaaS pig • 




Const UiSJI cjjUl ^yul As = ‘hCal) 


Data Type Ch^\ AS AjUS £ Const 4-^1 ^Vtnn 

I A JtiJ! 4J1&U US £( = ) 


ifi^do poll / \ 
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>iUU (^u\jaH dutaaU 































































u)tt)\dtyoD juuH 

Const C Name As String = “iypdljvu) ijjiftn!^" 

.1x0- 6^\ «\ij\ <0 ixpj inx9 upupfru String £^i1\ do C_Name cu\i U0- d^0>^\ fi cu>- 

Const Pi As Single = 22/7 

. 1x0- 6^\ «\ij\ l) iux9) inx9 upup&n Single £iii\ do Pi cu\i U0- d^ 0 -^\ fi u 
Const BirthDate As Date = # 31/12 / 1990 # 

. 1 x 0 - 6 ^ 0 -^\ «\ij\ l) &j\j inx9 upup&n Date £li)\ doBirthDate cx)\j U0- d\^0-\\\ fi cxxS- 


U-£ J-iaj 


I 4 4 t A t| £4 jftlX 

• ■ rurjLJI £4 If $ ^JLo^Lc ^ \ i ntlg 


4* aUrfi 4 (Mjw'oxa 


: ^}LlJL£ ( guolijtJI •* ^ -^3 ) 4 JHII olili pgJLujj 


TextBoxl 



c 


Button2 



a 9 Ja-APj, wLuj* | ~ □ || B || 


>LmlU uuu 


QjJUJI 


3>J I Jj I m.r 


ZTt 


Label2 


TC 


Labell 


Buttonl 


Oj^I ^JLl4 FV gLJLo iaJLwaJL j$-SLJI lili £Jub ^$-aj fC 

: yJLJI JSLmjJL LqS . LajLuj c^gJbLi LqS . Button2 « Buttonl jj) 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As 
End Sub 

Private Sub Button2_Click(ByVal sender As 

End Sub 
End Class 


rr/v j 9 Umj n <jhJutJu*j^rd *+>.. ^ nr s^un Ja ^>9 ‘ nr r ^jijjib>UM 

! yJb LqS Buttonl jji) 6 j^I f Ij^I EjJIjJI A»LuLa uLmJ» *3 5111 lllb ^ 


Private Sub Buttonl_Click(ByVal sender As 
Dim Radius As single 
Const Pi As Single =22/7 
Radius = TextBoxl.Text 
Label2.Text = Pi * Radius A 2 
End Sub 


Ifi^dO }0l) / \ 
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>iUU (^xxj\jxH tkpsiW 


















































































u)\i)\dupA) p<*nni)\ od juuH 

. Single t> Radius jpl* CP ^ .) 
. AJc. fU jI aJ Y Y/v <Uj3 Single Cp Pi O 6, 0^ VI ^ . f 

. Radius TextBoxl SIaV Text 4a«aliJI a^jS ^ ,f 

. ^UJ\ ^ Label2 SbV Text ( Pi * Radius A 2 ) ^ .i 

: OjJIjJI a»Ulq^ |^Lc jJuf$ j h a tl t a mi 4q<i J_>of ^ < ^uSLUl 4>^j F5 ^LuU jlc h t tn IL J*t nin |^j ^ 


ijJiiJi , 


[ °i^i 


O i-J I Jbj I Jl^-k 




I OjJlAJI A^LuXC 


VA^OVTj LmAnALTAV 


: Constant £y|£*Hj Variables 


. iuf$ j4.t 7.ll $1 4~i.il.i.ff |)X |9l| ^jJI Cul^Ul jl Oljilltl jl.h.i.i i 

CiIj4.ii.UI j-c Button2 j}ii 6 jJ»I JUai EjjIjJI h > >> 4 > uLjyJ» j^liM jjiJI d.il.i.C.i |qi 


Radius = TextBoxl.Text 
Label2.Text = Pi * Radius * 2 


: ^Jb LqS . dj-o 


: Lo-£ jjiJI JX.ui gi wiit 


P riva. t & 5 li±z: Butr onl_Cli c: Jc: ( 1 _ s ende 

jif r>J_m Radius As Single 

-^ Const As S:Ln^le = 22 / 7 

Radius = TextBoxl .. T e=Kt 
3La:l&*12 - X*att “ pi ■*■ Radius ^ ^ 

End 


it As OJoj 


Priv l^l a mg ‘Radius not declared,^ j gyyj 
Rjadj-U-S = TextBcxl .Test 

* B^HS 1 


sender As Qfcaj 


End Siais 




"Teact = 


:*SJ* :Button2 jjJf ?!JUu i*. .1 .11$ jjdLUl |^£ ,>Lu |«} Lif :Ja>Vj 
g)j-») jLbJ ^9 1 q . r ( Pi ) >*. >1 ;ll$ ( Raduis ) j4jLUI ^Lc jLqJLctfl jc • 

. ( Buttonl__Click ) 

l«l r» tl^Ttg ^uLUl (jl jimjj (q-ujXI fjJLc ftjLUl j-u«|^c 4 -»►<) >11 jJLc j^L^f J 1 h 1 »» o jj ^ u ^11 U * 
jjJI JLb_> ^9 £ 4 JLLla 1 0 if («£j (Button2_Click ) jLb_i 1 q 0 if ^^LcVI (Qju 

Buttonl 

> L^J^Lcf jlhJfj Cul^Dlj Ctl^Til) jftljbiwUuf j ^ rf Ail LJ ^uiul dJi ^ If flijj * 


ifi^do }ol) / \ 
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^iUW otu\)j]\ dtaaU 



























































ptutiiHfediuuH 


41 K iii t) dJL& 

^ 5ft Lg^oU >>1> hi) j^Lr S? 4itf Button2 jjJI *1^1 JLbJ ^ Zj*q £*jlUt$ juLLlt £yc jitc5ft &SL c 

^14. i*ii jLbj 


Start Page^fncm 1 *vi»}'" Form! , vb [Design] ( 

- 

General) 

v Q (Declarations) 


3 Public Class Form! 

3 Private Sub Buttonl Clicfe(ByVal aender As System.Object, ByVal 


Dim radius Am Single 
Const pi As Single = 22/7 
radius - TextBox 1 _Text 
LaJaelZ , Text - pi * radius A 2 
End Sub 


3 Private Sub Button 2 _C 1 ick (ByVal sender As System/Object, ByVal 

Dim radius As Single 
Const pi As Single * 2 Z / 7 
radius - TextBox 17 Text 

Label 2 .Text - 2 * pi * radius 

- End 3ub 

- End Class 

. ^ljLLDI ^-LUJ djJIjJI la * DjJIjJI a_>Ljjj_o jj ^JLl la x ua 1$ j la 2 1) JLiol$ JLuljujuu ^ 

LlS-jii.oJJ JLtl 


Cil^tUI ^ ^iLc5ft ^11 ^LJi ¥ L4 jJL&$ : Class 4 a n fl j$JLjuul 4 Cil^uLUf ^ SL? L*5 

. CiJb^ JLbJ J-S 


...--•''""Start IPaq 6 


.vb [" Fdrml.vb [Design] 


’"tj Form 1 




FH Public Class Fomol 

Dina radius As Single 
Const pi As Single — 22 / "7 


dtV 

Class * 


1 CP^l 


Private Sub 

radius 

Labe 12 • 

End Sub 

Buttonl Click(ByVal 
— TextBox 1 * Text 

Text - pi * radius * 

sender 

2 

As 

System-Object, 

ByVal 

Private Sub 

But t on2_C 1 iclc ( ByVal 

sender 

As 

System.Object, 

ByVal 

radius 

- TextBoxl.Text 





Labe 12 . 

Text =2 * pi * radius 




End Sub 






E nd C1ass 







. guLLLH j j la 1J ^^->1 g^o la« ^^3 d^o a_>Loj-o jj U ♦ *>^3 jU^tl 1 ^ \ JLjLuLu ^-2 ^ 



ifi^do y»Vi / \ i\^i 
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oiu\^U djpsb\ 























































































































WunlMo&tuull 

|: 4D^ | 

: 4jLLL^JU fLb^kl J^aj* iuLUl j^I^j j^-SUI 4_>LL* jJx 4^4 

: L 4 I 49 

: Syntax Errors : jujUa*! fLb^kl J 

:<Jjlnl Dim djoi^lun^jj Din &nll}\ <b\ft din <b«£dp fce- <ub)J&) >4$ <Sl AillS uis- ow* t>ftq 

Din x As Integer Dim c±fS £& O^VI ^ 

Const Pi As Single * Lui <1 Pi Cutill q& I ^ 

6 * fcpun v9)j\ h±- i&£dq «VJd^!I oikft din >q^»qj cbju d\q2*ifi)\ femiull <U*y\\ olfc Jte- cdsDlq 

. 1 b&\ 

: Logical Errors : -*-SU:t| gUa^kf .f 

. utyoJl &dng> «\£-H 4 An^ p\b«uu\ din cimlm diu^ uljusi pbouu Inna- Cos 


Labell.Text = X + Radius A 2 . A*Sjl« jj£ ^jUS j$laj Ual JjU«j j$laj V fUai^t <> ^jjl\ lifcj 

\ft>\yni d*u9 <Aqpw olilu {Aj&iuli fenlijdl jilted q \u>- >qfl\ dbt^ljn an jj^ \ibA& idsdl <ojj ^ilq 

.limn 

: RunTime Errors: J : » AJLfcgLbdxkl X 

: dJly o® 8qd\ life ujd?q elh£» 11 an £qi)l lift >q^q M6> j»j^ <dln>) j&J&jq fenlijdl duuui u& uys 

. ^Jk^iuL&l) (jLuil ^.Ia £>® < Laj2 • 

<^! (> c£*JJ ^a^Jt J> Cjjliiil jl jj*2aJI £lu £jfr t flVAj tajS jl • 

. ej 2 « 


*Uaiil g* J*U*JI 5 (tijudjti f 


! ^JLUf J ■•■ m t L qS q -KOjjJf 6jb> gJLu ,jS AxtjJI ul^l 9 <LJLD) t * M tiiU JjxL |«i 

1=1 F'jtlic Class Forial 

rjn Private Sub Buttonl_Click: (EyVal sender 

3 .3 1 —*? ,Jj£—j y I 

Dirf. arable As Byte 
Dirr. computer As Byte 

1 J _ LiU _ 4 [J ^_] p ■ 1 -*■ L Ml M. _ J l l~lS TH- J_4 J--'’ ■_ ■■-- -3- _J 

arable = Me.TextBoxl.Text 
computer = Me.TextBox2.Text 

Me.Labels.Text 
End Sub 
L End Class 



ID 


(>>vm ui^u’i 



























































pqunlU (^9 vuoilV 


Byte u-Q-ij £>Lu Lq^J computer 9 arable fryJLLo f JjLujJI k_*jjjUJI : Ja^»¥ 

f f & 4 

()l jAJbihliJM ^Jx ui» 4 j| 11a 255 Jblx ^JuJj 0 £-0 IJyJ I g ji> J.iiil lllj ^)JJI liX) 

ijL> iLujjdl 4JLOI ( CjULj xtL>^| ) jn.i, nn 4 i ^l^>| ilc ^,<,3.11 dli 

: ^uJUJI oXUi J US Runtime Errors J, Tit. Ill fLul Lb^>. XjJL Lfc AAljill 


JLtof j$j>j . g til a U |^«Ffl ^1 »<i o ^_Lc lajLuaJL guqLjfll J.i ntl jJLc : ^ttl 4JUJ . I 
4JI juiu 1 h i iUluij LJ jj h i >frl jflj >n 1H CtLbj4 ^ CtULi 

InyalidCastException ^ a-mu LtaJM (IA9 Byte jL-JI icjLLM 4, >n,H 4^-iJ) ( >SLrV 



fl_u j_p_l | fljrJJ | 




J_JLjLl_3 |3-^— j jv.l ■> l ..i m ] I dllj J_J ,y ■■■-•> ' 

arable = Me .TextBoxl .Text! 


computer = Me. Tex’ 
Me. Labels.Text = a 



l( s ]nvalidCast Exception's unhandled 


Conversion from stringX' to type' Byte' \y not valid. 


J“■* JILL |«i . <LujjlJI <itli) 4>ji ^ CtULi jl Ji>jJ (qJ Li¥ . (JaJM dJi 6jb> jJj 


JL>ol f . ^JLUf o-« FA C LLU ^Xc ht>hlL gwU^I J.i n.l jJLt : XdLUl 4 JIJ.I .f 
LJ j $ t : >’) jf q > jj (jJLc h i ih ) |< 4 *jjJlJI <UlUI <UgJ ( JJM£ 4 m q > ) 4 . trt i l I I <L qJ U I 
. Byte oLuJI £$i ^11 ( j->X c 4 -uj.qS* ) 4 . wV. I I 4 -q XU ) JjjX V 4JI ^11 jLjjjj I h > > qJLuJj 



1 jjjLLJ p..i > 1 hi j, '1 uJlJjJ ^ujoU 

Iarabic = He.TextBQxl.Texd 

computer = Me.Texlj 

1 jj-Jj-i-LLiJl 

Me. Labe13.Text = a 

n —l 

4 « 4i i ♦ X * 

Eo.vJ? Tevt - 

1 (TnvalidCast^ceptjon);iN unhandled 

Conversion fror^strin^) , 4>^ bjjc L2j)o typ^B^e^ not valid, 


X»L S f ^uLUl >q FA C LLU ^Ic, hi >ML» g^LjJI J.i nil jJLc : aULUl 4JU.I .r 
4JI ^l| jiJu I h >. a JLujj LJ ^q > jj j I f h i ihl f? 4 i III i>jJ !*♦ * 4-» dU i JI 

. ( f A A : jXj*q) ^-*9 Byte^qJjJI jLuJI £9^ £q 4 j ^$ - q-juuJ U J-q j4-£I 4 q i i JLtol jjX V 


r.. 

g_ij i j_p J _i | qjdJi 

JjpuXl 





J—t- 


j iy p - 


■ ui_J l. f h h in~^_ 


iarabic = Me . TextBoxl . Texts 
cQiE'Pu.tier = Me .TextBoxg .Text 


■\ er = 


Me . Lab^ 

C;-an-fe-, 


S CTOv e rf low Ex ce ption unhandled 


Arithmetic operation resulted in an overflow. 

. gt*gljj4JI J.i juju liULL (Q-i OyerflovvException ^ - o-uju bail 


. |L3 |J ^jJI (JaJM rtJuLuuJI cLmLmJI ^ ^jJq^Jll j] 1 J C ... tt j 
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p^unlMoSiuuH 

: Runtime Errors 

: «Lh^tfl j±A ^9-J1 11* ^Xc lJUl iU 4^b jj* jlSI ^LLa> 

( Try.Catch.End Try ) 1U+ >.;>.>): ^kf 4Jb>bJI 

1 J <aJ 1 la; ‘^3 |»U> Ctlj^l p ^-* “‘ II C>M»iM p ^ •W ? tl ; 4 , i( I n jJjujJaJI 

>J * CiULi Jl>j| ^i£ pi -w~ »■ tt 

( Try.Catch.End Try) 1U+ Abtolj Jj|j 

: L^jla J^LaUfj J.i untl fiLut £i±± fOa^kl Jldii**/>,» 4.7 in~> 

-—---«-"- 

. Ua^l X* 0>bjJI p yu\ AXtflj 4 <n A * j fU»'il *4 04 ^mJO Cu> 

Try : Iff 2«UJt 2)&dJf 

b*} lk> OjJt> ^0»l d)jJj Ujui* J ^dl 

Catch ex As Exception 

<JL*j LJlftj Uai* J&* X* 'ill JuLsj 'ilj C**£j ^lll dtj^'ilt 

End Try 

: j-oVf 

^45 > 0 l$kf J*U» pZj fiUx^t J 9 AJ i*xJLH je GlJ Try 1*1S ^G ^1 j*1 9 X11+lil * 9 \\ L*j . 1 


. End Try ^ Jill j*1 9 )t1 Catch 


Private Sub Buttonl_Click(ByVal sender As System.Object, 
Dim a tabic A3 Byte v , je jLUi ^ ifit \ 

Dim computer As Byte \ 'jr^> u* 

Try iS’ji 

stable * TextEoxl.Text i T j t *La \ ) -u-jLM 

computer * TextBox2-Text 

Catch ex As Exception 
“ MsgBoxC*255 j_Ld <JpJ » -Clj. 

End Try 

Label3.Text * arabic + compute 

End Sub 



ByVal e A; 


■i a I J rjAJL^S 

4 * ■* < 




> 4 l$kf IJb Jqi; MM iti fLb^l 4^9 £« Try 1*1S JJ1 j*i 9 Xi 1+lil je lit U 1 . f 

aJUmj j$4G U LJLc ^1 9 End Try Catch ^G ^1 >*($*( J-LLG Jj Try ^G ^1 
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oiu\pU djpsh\ 








































WuniMoSiuull 


: p \ "nIi in U C*i jq ^ ^ n ^jUI |fil. 


^Jbj cALkjJU jLuukI jft,v<NlniU iS i.-v . ( Combo Box , Radio Button , Check Box ) Jig 


. TextBox &b! J^b 1^ i tl i ^ 


4jjJ jlikj £)t ££ajV S^Ul) ^ 

. ^ L-Luu] 

£UjIj jIHui Luaj) 4J! La£ 
jji ljUUj ^h> AjjU£ £>* V-b 



! VB.Net ^8 U;|j>| ^SLr ^I)| <LjL»J>) oLUaJI 


( jjj-alt ) JaU-a]) Amytal] 

A 

oA» ftijlt 

* 


/ 

ajjuji <A<uui]i 

\ 

(AAwiiii 4.A^lS 

Mod 

*La.uii3l ^£b 

■ ■ ■ 

£-aaJl 

— 



5Ui 



! <Uil “■ »> 

:Ujl^^Ull^y>lb\B.Nct4* 

(( )( 

* Ji - r 

jLmJ) Cyo ^umI U^jI / <LjLlJI 4.g-ujJUI$ * uij tn M - P 
( 4 g ttt a M ) \ 44 ub*jgj| afjbcVf <L»jyuJI - i 

Mod ilgjuuLAJI ^ib ■ A 

Qj-»dJ( jLuuyJt QA j^4*d 1 9 $t l — £jJaJI$ ... ^ »4>> - \ 

5+3*2 = 11 :4±Ul • 

(5 + 3 ) * 2 = 16 

£gJ.| ,< <L.Lg-c i-uLLi ^ J 9 tfl JlUl > 

<L.Lg-c ^ OH L&'X <L.Lg-c i*i-u r ~ : *» ^lilf JliJU > Ul 

■ '*** jj tjVI ^ 2 Lfilj 4 ui> j^LU44tlil 4 1 g ■»► 1 j V » jkJL g>y <Lil **■ >» Ctf^UjLf f LjujJI jyX * 

*> 5JLD ^)j jap . -<Lb^l L£j 
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>iuu oiu\^n d^iu 






































































WuniMoSiuull 


(Branching ) 


JlX jL^U-U jtjJLlt aUMj j-SU <uf Jj-i bljJab-j Flow Chart jijJLTI JaJfjb. J 

*1 ^ U fcj-iUb ja»L*l Code i$SJI ZuLiS Jt dJL lijdunj < Jjula JI|dtM ji£ f Lb 61 ^ u 
£j*UI jt+Ju IcLuta 4 -Lt^j ... U 4 jLLTI f IjiW £* jSJ$ Algorithm Jj *1 bljJab. 

'■ 4~>* 

: If.. Then... 


JUI>Kj )4 u ; * A>|) Jl4l>t )l 


I) Jjjy 4J 4JU ^ j-Al^i j_« ^4) 

( Single Selection ^IjLyL^yi )True 


4laa.ll » jgi ILaLJ! 4 *j^1I 


If Conditional Expression (Ja>^l J\ Then 

Code ^- 

End If 

£X& ^ (j& AiHui ^U! 

Lblj^a jaij-uj| ji& juUTrue 




La 4 !Ia jjjauil ji LjjiJl jA If Jxj <_u£j La 

j^ljVI Jaijj j»jj True Jaj^Gl Ija glU 
^ End If tP! ^ Then <J& Code 

0i% b 4JU 4 End If ^ jjiii 

If 4laa ^a ( _ r Ju jl j£L V False Lisa Jaijailt t JA gilU 
End If <j£ (J& jjiii (»jj Jj 


|: If.Then. *lft» ^iJAibiU ^ JUb 


If X >= 50 Then 

MsgBox("£*L3") 

End If 



|~ Conditional Expression 
*J ^ fLb False < u $1 True Lo| t»Sb 4 JLb j$^b Code 49^ ^4 ^ 9^ 

■ ( Hk* ^ 4*3 0^ 9 * Variable jbLLo 9! Property. 




> 

C> 

< 

(J-d JjL^I 

> = 

^ jUbj ji (>» 

< = 

^jlu4j j( &A ji-uai 

= 


< > 

jlu4J V 


<UjUil biWU* 


. jbjJaJI Ju AJIUJI ^jU 1 a jjit) False Uab> 9I True uI^a LI jj f ; L 1 «JIj aJ»j mi tl Cdjj. till ^uG 
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u)\tt\dupA) o9 juuH 

£,*3 “* w *| 1 4 ‘>3 Compiler f»»>m ^ JaJbuju y4 a n > .« ^ul^> fcffrJ f»»i ag Cd^ OUHs * * 

&***'“: **** 4 5 = " 5 " tojl+U *** ftj+i jSJ 9 5 = "Aly" Jlo 4-iil*ig £tbLu 
«—ijbLlb |ftj) gj ^ 5 4^iJJfc)l 4 g < a f1 ^4 jiJb£ jLu "5" j'* - w Compiler 

■ u j« irttl Jj^bbb u g um U 

. j^Uu a-L£J$ jau. ^»Uu jmJ = ^$Uw j^LUl If X = 50 Then 4$£Jf ^ • 

jrti xi ? i J^Uu ^4 = ^)Uw j^LUl X = 50 i$SJf ^ • 

I: L^SUj ibfe>4ll 


gSUll 

cA^' 

False 

^jjjj jLuila (jnaj^l £ji dna. 

100 < > 100 

True 

^jjjjluila JJC- ojiaffil £l dna. 

300 < > 100 

True bj 


Degree jj*bll ^jiuH TextBoxl Text 4 a£ <_jLS I j) 

False j' 

Degree = TextBoxl.Text 

Degree ^jluu V TextBoxl SI.&U Text ‘Uua <jl£ t jj 



|= i owM l] 

J_*jl1 Jfitl J^lUI J US 1*31111 iiiUt IbjjU ) JJ.I CittbS. JiU~b I <j 

Sul&Jt jb Lg±c Lk^L jL* fgj U 4J>aU ajLui uU > ^JLb aglji 4,lgt> gugb* 

1 4 g 1 S b MsgBox AJbtij J3 1 ‘ ^ 4 ♦ ^ ^btlU jj • ♦* 













































































u)\tt\dupA) p<*njai)\ o9 juuH 

.!»M^KnvItl ...J M *^ Al ‘^ tl J;*‘‘‘‘ t!<> ** 4 • 

1 f 9 ^i je If 4JU»r j-« j( ULu jJ 9 False Lb^ $*AR >= 50 .bjJjJI ^>G jj SJ. »♦ 

. *L£»I jl End Sub 9*9 End If ^ >0^1 

fv j V < ^ 4 i *j ,j^|j j “■ ^ If iL»» *jj c? . 4 . £ub^ ^jL “* M Code *3 g ** j £ f • 

:^-L> L»£ End If >o f i>LL* 

Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim AR As Single 
AR = Me.TextBoxl.Text 

If AR >= 50 Then MsgBox(”^>U uiJQaJl M )< ] i 

End Sub 
End Class 

E lf ...Then ...Else... <1* £>JI: Ldti I 

£ .= =^^^=^ =- ' ■ ' "" ....... .. p 

.( Double Selection 9 ?4tU'»l) jhlIjju J±j Jjaj £jJLLJt 

False Jaj^sbJt j i 4* ^ jJix X 49^9 True j i 4* jJLa X an 49 ^ 49^9 ^ iLLyyJ) 4(^i) ( i 11^9 


If Conditional Expression (^ y*l\ j! ) Then 


|= > 

jjiti jjaiM ji us jiiiJi Auu s jJ-i Jiu4« (<j 

jL Ulft Luudj 9 f UukG jlS iii U iijjU 4-y»jJLM 4 jLLTI mu ^ U4JLb Aflji 4,lqtl JUoG* 
* 9 \ g+q l*is 4u MsgBox iJLtij JjjJyq £Ua$ 6 ♦ ^ ^btlU jj * *f idi j j tt 


Codel 


<=) 


Else 


Code2 




(jjSLi La 2 JIa ijii ilii'in l Jjl\ jSft 

True Jaj*i 2 l 0 jU 


(jjSLi La 2 JIa ,lii'ii< ( Jjl\ jSft 
False dai Ja^uJl gjU 


AlaaJt tifrl ‘Labdl 


4JIa ^ 2 j jjjsuJl ji JajJiJI jA If Ju ujj£j La 

Jaijj True t r | l|JA jjjLi (jj£j La - ) 

^1 J>uaji! ^ Then ^ Codel 

. End If (jk >aljSfl jaiij £ Else 
^jj False Llsi JajJUl IJA 0 jLj La <Ul^ ^ 2 j — Y 
^ Else ^ Code2 j-»tjST! Jaijj 

iaiu End If i^\ 

. End If 



AjI Jj — \ 

AR AjjjsLI Axil! SjLa u& ulUa 4ujJ Jiji _ Y 

LiJ) AR >= 50 ' j) - 1* 

" uJUaJ! » ^Ua _ ^ _ r 

: dJj jjc. . i 

" uuulj uJLLJ! " ^Ua- ^ _ i 

AjL$j- t 
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<>iUS\ oiu\)j]\ (JutaaU 























































f * Jm lit) J t 1 9 i *1 US Form g*$U ^JU £$>duuu o US 9 cLuuul p2j 

: yjb US Button 1 Click dnJ,f plUJujjLt ( ImUI ) j*Ul <Ln *jdt Code i*S LilS 



( False ) Lb^ .bjJjJf jLS fit Ujuu U LJtlS utf Else 

( True ) U.'* >rt ^b>aLri jUJLLTI jL* bl • 
" q+Q uJUjf" Las Lfr LSLuj J ‘“3 

( False ) LbJ* ypb>aLjl j^jLLTI gub jL* fjf U( • 
LakJUftj ^LbJI 1 lq-LS L£> 4 JUmj -3 

jj)i; »»yjb U* £jLujJI Code j* 4LN ijLLf jJLc • 

:^-L> U* End If >©? i>LL* 

Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim AR As Single 
AR = Me.TextBoxl.Text 

If AR >= 50 Then MsgBox(”^>U ^JLLJI ") Else MsgBox("u^l j aJLbJI")* 

End Sub 
End Class 



|= * 

J-ULt JjStl ipaJJI j U S iJlilt JijiW i 9 Jj.) 4l*h*i. ,*i 

MsgBoxsiJLui; Jjiidtf $1 ^^4} ) iiUfcll ^ "‘ A< ; u ^ JU^|1 

t ( 4±JLii ) $( ( 4 ^ 4 } 4JbJLi( ) AjLkC 



ifi^do yjoVi / 


_ f END A 

UUM- y 


AjI^j — ^ 

n cM - r 

: £J) ^b V J& JjSj N 4-*^ <jt£ lij _ T 
M ^jj JJxJl M A^bla -\ - r 

: dJi jjp _ t 

" J JJxJl M A^bla- ^ - t 

AjL^J_ 0 


ZT" 









































































uNttldupl) juuH 



jfmj 9^ : ^dilj . |^Mb£ ■* -7 4 “ * jiiij jiLu> j^Uu U 4 Mod J »1 *tt 9 

f.L» 9 0 j 9 Umj r jJULJf ^Lc N jjulN 4 « hi i ^ib jL* fjji . 0 ImM j* 9 £jbuuJf ^LufcJd j&JLLH 
i9^i ijjfc)l jj c ‘ False d)iji£ lilj * jj c ‘ True u j •“ ♦* jai {j **4 

pit * UjJ^ 9 A*»l 9> b^tf ^ Il'lu> jgSJLuj d*+*r ^Jb us &>LyjJf Code 4 $SJI JuUS jSu • 

:^-L> US End If >©? 4 jLL* 

Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim N As Long 
N = Me.TextBoxl.Text 


If N Mod 2 = 0 Then MsgBox (j Else 

End Sub 
End Class 


MsgBox (”c 5 *j.J ^ I ” ) <^i 


E lf... Then ... Elself... «i«A £ji*J| : UJtt 

-.-,-T-.- 


MJJtlt) JdiU 9 f j lii> 1 jJst )l jiijJtu jjitl ^>1^1 a^ 9 JuLc ^a 9 £jJuJI j_et 9 f ja ^ 9 

. ( Multiple Selection 9 ( 


4l»ait 6 jgi ‘L#UJ! 4j6uaJl 


If Conditional Expression Then 
Codel 

Ebelf Conditional Expression Then 
Code2 

Ebelf Conditional Expression Then 
Code 3 


Else 

Code7 

End If 


6 bj Elself J-a* 6 a l$\ j' If 4 iaa. 6 a c$' 1 jj 

Vj 4 laj 66 l t^j Then uAii True 4 ajU 

End If 4b* JliijVI & c£ 1 3 if 4b* J> >1 L>i I JliuVI 

: 4JU ^ 

j-aljSfl *6 True <-6yJjSfl If 4 1 **J JajbSI guli 6j% L# - Y 
.End If 4 b* JtaijVl ^ Then ^ Codel 

4b* yJt Jliijyi False daii lajbil lift 6 j% b 2 JIa _ Y 

4 jjjj True *-6 JajJuJl 0 jLJ (jLS 13 L& 4_6ti!l Elself 

..End If 4b* JliliV' (*% Then ^ Code 2 

Jjijj 4 LUJI laijjbil qm (j\ Jjjbjj ^ I jl£. j — f 

End If 4 b* (J) Jtiijyi ^ ajbSfl Else ^ Code 7 
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t>iUH oiu\)j]\ (l*aaU 









































































WuaiMo&tuull 

= * J 

J^JLt J 9 *l J^a-iJI J Lfiljjjji US HuJUJi iijJLTI 9 JJd pi 

) $f ( ji trt t( J$i ) A^jJl J-6 lijjU < Text Box J 94 JL* J IjtjJ-t JL>o* 

5 Label £fj-o ^ LAjL^Jal 9 ( j a wi tt jjLlmj ) $f ( j a wi tt 



^ < Jjkl J wi a tt ^ 11«1 *1 L«£ Form £ 49 ^? taii 9 f Lum| f«l 4 

: yjb U-* Buttonl_Click fl* 4.7 >»L> ( jULLt) & j*Ui 1 **jdt Code 49 S JuULS 


TextBoxl 


Public Class Forml 

Private Sub Buttonl_Click(ByVal ... 

Dim Degree As Single 
Degree = Me.TextBoxl.Text 
'If Degree = 0 Then 

Me . Label2 . Text = M jJuaJ I <i j LulJ o j I jJ*1 <L>j ^ " 
Elself Degree > 0 Then 

Me . Label2 . Text = "jJua Jl ojljJ-l 4 j> j y 

Else 

Me .Label2 . Text = "jJua Jl CjJ- BjIjJ-I 4j> j y 
v End If 
End Sub 
End Class 


i r 




D_l 4x;i ^ LSI 

CD 

El 




Label2 





JU 


lii^l 



Buttonl 


=E 


>»» f («Jij Jl^4? Jl q? >>* Single gr»■>» xi £ 9 -LM Degree il tt frc, &2UW f • 

■ 

■* M “‘jjJ*** *“ ( True ) {UM4 <liG U 4ib> ^ 9 If Degree = 0 w u j **■ Ji jgu JtUU If 4 l»» !ki * 

j a ta jjLiu 

g»»« x~> <JG £)&Sj U aIU j) < Elself Degree > 0 9 ^ ^lill w u j **■ Ji j^u jlUI Qii> 4 J»L> jL£ I jl$ • 

j* £■* ■* M “*j j J *** ■“ ( True ) 

juU!) ^ilJt tU>Jt JUI> 9 I 9-6 <bV Degree < 0 9-6 jkifl JUkHI JUlb Qii> <Jb jiS I jl$ • 

. 49 SJiJU+j* *2 j\ 2£ pirt OJjJ Else _> 4-k 


y»Vi / \ 
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oU)\)jJ\ djpsb\ 
















































































pqunlU (^9 vuoilV 


4-^gJ J-o F5 ^G5 SuSJf aju Start Debugging S-^*Jf jUl±i Ji 

0-0 i-dLLTI Lb^l 4JO*, LLT .Text Box 1 j^-LTt ^ jf JU>ob fpJu pJ jt £-JLLtf 

t* J\ “ String *4 * 4ih ^ Runtime Errors 

£*LN CU tfio-flll Jj^kUL^L-L n ghl ttif ^ Compilerj* ( Single ^-oij ^Uj 

. J 9 *l J^a-LTI > LjS'i US Single ^-oij-B £>L» J\ String Jy±\ 

D-iir. Degree S±ri^J_e 

Degree = Me - lextBoxl - T e>Li=j 
Z:E Deg^xee = O The^ 

Me . Letel2 . Text i InvalidCastException was tmhandEed 

■' r = Conversion from string "" to type 'Single' is not valid. 

: Lb^f li* Ci 9 j^ g-Lo 0 -SU 9 • 

Catch End Try iU*fr Lw&m : AJUjlall 


tjJd US J*2| Joayi ijd UtUj* tjlii Try 


Public Class Forml 

Private Sub Buttonl_Click(ByVal... 

Dim Degree As Single 

r Tr y < 1 

Degree = Me.TextBoxl.Text 

r If Degree = 0 Then 

Me. Label2 . Text = " I 3 3 Luti B j I jJ* I <L>j a' 
Elself Degree > 0 Then 

Me. Labe 12 . Text = " jJLaJ I Jjj_i ojljJ-l 4j>ja" 
Else 

Me. Labe 12 . Text = " jJua Jl CjJ- ojIjJ-I 4j>ja" 

V. End If 

Catch ex As Exception 

MsgBox ( m oaJlJI JjjJ-La j ^-Lc 
Me.TextBoxl.Focus() 

Me.TextBoxl.Text = MM 
' End Try 
End Sub 
End Class 


< 


{ 


<ULuaj J.lift , yi Ja&^U 

JLijU ^Vun att tj tlhj MsgBox 

A j]l a. A_j2ja. A_4j 2 jl A_j2ja. A_aj2 <j-a V^j 
.T extBoxl o 3 ^ yi 

Focus() (j-* ^ti “' j ft vVi < « t 
(jbj ‘ TextBoxl O^t 

A jUSlt j-uajj <JJLj ^ '«"■ 

TextBoxl O-ajJ' J^lAJ 

<A*» , „l U ^.M*. 

Me .TextBoxl.Text = "" 

AlutluJI jt "" A ajlll jAj 

SbSU Text Aj_ualill A_frjlill Aa-a at 
.TextBoxl o>Iil (jjJikfl 


IsNumberic() <U I jJI Ui 3 ^* If U&m : ^yUJI^y^all 


< 


Public Class Forml 
Private Sub Buttonl_Click(ByVal ... 

Dim Degree As Single 

/* If IsNumeric (Me . TextBoxl. Text) Then 
Degree = Me.TextBoxl.Text 
r If Degree = 0 Then 

Me . Label2 . Text = <i j LujlJ ojljJ-l <L>j ^ ’ 

Elself Degree > 0 Then 

Me. Labe 12 . Text = " jJua Jl Jj-i BjljJ-l 4 j>j^ m 
E lse 

Me. Labe 12 . Text = " jJua Jl CjJ- BjIjJ-I 
^ End If 
Else 

{ MsgBox( M ord-JI ^ ^-Lc ) 

Me .TextBoxl.Focus() 

Me .TextBoxl.Text = MM 
End If 
End Sub 
End Class 




yjoVi / \ i\i^\ 
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Actual If Al^ • 

If IsNumeric (Me .TextBoxl.Text) 
(jjllua SbS? Text A jbikV 

V Ajj^ a^uS ^ Ja TextBoxl oaiJ' 

Lilj True ai^ O' cA$ 
aJIa ^ U ; c-jC ode 
Ajj^ jji A-ajaII False 
^jSLjElse^ Code^j^' 

:6^ 

t_i]Uaj MsgBox ^ 

jl AA^u2 ^ 

(jjilua ^ AaiLk AA^u^ 

TextBoxl 

AjUSil Jij jj JSj _ T 

. TextBoxl oaill Jj*^a 

A-^alil Aluoluoil ji ” ” A^ulil (j/aj^Vi - T* 

u/a SbS? Text AjA^aWU A^jlilj 

c^JJJ l^All LULVUir 












































pt^iuaiU od juuH 

3* ■£ *"•* T jj"—■» ■* *j * l pi “• • w Ttl ^HatinoH Functions ■* *j * *« J‘j * 11 ‘ ' IsNuinenc( ) ■* Tl * Tl • 

j jj*»*** j^jyya w *j ! “ )| ListBox 4 <}|«H jj * - w *j ! TextBox jj * - jj* •*-■* 9! Cud 

■ False 9! True AJfdJf aIa gulu j$S ^ 9 < jjx 9^ ( ComboBox Aj-juuJI^ 

9I True ^ j^iaJU gculu 1^9 ^ >>>9 fl 11 £j<u Argument J4LL4 9I 4iiduu) 9I JJ» < M I^J : IsNumeric() >® 5 ri • 

■False 

MsgBox IsNumeric() 411*11 <jJf 4i*#l 


>»Vi ^Ui! 

MsgBox(IsNumeric('' Hassan ")) 

False 

Aj JJC jjC JitJ A ajSll 

MsgBox(IsNumeric(10)) 

True 

AjJJfr JitJ A ajSl) £ji 

A = 5 

MsgBox(IsNumeric(A)) 

True 

5 yAj ^ JJC A AjuS Ll' At* 

B = "Alhawy” 

MsgBox(IsNumeric(B)) 

False 

"Alhawy" u^j B di' At* 

MsgBox(IsNumeric(TextBoxl.Text)) 

True 

Ajjjc AjuS ^ TextBoxl o^t d)^ |jj 

False 

^jjjc jjc AjuS TextBoxl 0 ^' JjaIus |j) 

MsgBox(IsNumeric(ListBoxl.SelectedItem)) 

True 

AjJJfr A_aj2 ListBoxl A-wlill ^ Jiht'l £)IS tit 

False 

AjJJfr jjft A-aJj ListBoxl A^ullil Jj j.lL^ ^2 AW all (jlS I A) 


itjLuLJt ju aJUI t>±* J 9 If juuiu > Lx* ypbjud* jjuJtu j-o ^lSl jLJukI ^1 £LLfc jJ 

■ Or u «hitf J^UUf 9 ? And ^-Lb-LU J^bUb d.hj in 1 ( 
True ddlS gdU 4 IS Id} True gdU <jJaM And 

False bj>dJI **\ gdU 4 IS Id} False gdU <jJaM And urffaill >UU 

True bjipdil C*i gdU gIS Id} True @dti <jJ«u Or ^JUaidl 4»bdl 

False Jaj^idl «u£ gdU gIS Id} False gdU <jJaw Or ^JUaidl <^»U1I 


E 


Boolean 


<alj*a*+ B jgaiilj A j^adil^jgoyy And ^jUaidl J^Utl ^IcaAiI <jJt4d<Ui| 


£aUII 


A *Lu£ 


True 

A And B 

True 

True 

False 

A And B 

True 

False 

False 

A And B 

False 

True 

False 

A And B 

False 

False 


( True 


True i» 9 >uLll HlS q2L» Lj UjJLa ±+* 9 JUl^f 
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>iUU oiMjaU tkpsiW 





































































WuaiMo&tuull 

: Boolean UUao* Qljo*** B joiollj A 4 I ijfijM Or uphill J*Ull | 0 lJA*«il UUI 


gSUll 



J} jJllaII 

True 

A Or B 

True 

True 

True 

A Or B 

True 

False 

True 

A Or B 

False 

True 

False 

A Or B 

False 

False 


CiXS ** ( True oJ&G jj^Lj) A Or B jl+jLLH JjL*> JUi^f jl jcoaIj £jLuuJI J 9 juM 0-0 

True Jy>4 ^!G Lo-LLc, OHL«lxl 


|j_ 0 ^jJ 1 ^ ~ | 

) jj j 1 f j ill) it If yj lhtl 9 < Form <u<t» fUub 

0-0 4JL» ^ £*,£ jwUwf ^J-c , y^juilj t-JLbJf 9 I jl^G y-JLbJI Label4 ^ jdjJU ( i^i-LTI 
u 1 0 * ff$ jjjj tilt! ^1^4 0-0 Li CG iS (of t i >»tj 9 < 0 ♦ jg L ujyj 9 I 0-0 jiSi u 1 0 * 11$ tiBI 

1 6 ♦ 0-o 



Degreel ^Lkjo 0-* k* 0^ U-*G yGLbJI j 9 -SG ^-SJ £jGuuJ1 ojJLJI lli^Xo O-o 


y^ylj 4 -JLbJI j\ GLTo jLA 9 * >= 50 0 ♦ jjLuu 9 I O-o Degree2 u I q t T($ 
«*^ 9 I Degreel >= 50 And Degree2 >= 50 w u j *“ ♦* jl+jLSJI ^ And w * u -Q J-oGGtl 0j * 

u I Si II guLJJf Qj c • w ? - ( True ) Degree2 >= 50 $ Degreel >= 50 fa jj at w ^g» jai 

.True 

yySj-o $1 Degreel >= 50 Jlo h i itit 0^ols-M* 9 -fc Then $ If 0e f^t U Oj * 

Lol Boolean w * u -* gGG ji+jLUi ll* gGG j 9 -SL> 0^ 4 Degreel >= 50 And Degree2 >= 5 jJLo 

False 9 1 True 

ifi^do yjoVi / \ }U#\ 2 8 (>iUH dutaaU 






































































WuaiMo&tuull 

: n WrijAri 2 

j>-»j J*Uf j_A jf 4JU ji juJiZ ft iii i ; iii £jLuuJI A ¥_*jj.LLn JjjuLu 

t A ♦ j_« jJl >«id j-A Cyl£ lj) >.« >»t ^9 < A * ^jLmu 9 I j_« u I a *tlj) 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender ... 

Dim Degreel, Degree2 As Single 

^If Isnumaric(TextBoxl.Text) And Isnumaric(TextBox2.Text) Then 

Degreel = Me.TextBoxl.Text 
Degree2 = Me.TextBox2.Text 


[fC^Deg 


=' 50 ^' hen 


If Degreel >= 50 Or Degree2 > 


Me . Label 4 . Text = "*_>!_> uJ LbJ I ” 

Else 

Me.Label 4 .Text = "uuuil j ulJQU! " 

^End If 
Else 

MsgBox ( ’’o^ulJ I Obuj-o j p L_s j I J->^l cLbiti o-o”) 
V End If 
End Sub 
End Class 



1^,4 0-0 J* jf L>^G t-JLfaJf jj-SL; ^-SLT ^jLjujJI j-A • 

ifJLhJt J ^M £Ua « >= 50 A ♦ *“* )| j_« J 4 ^| Degree 2 u l<t ft $1 Deg reel 

Degreel >= 50 Or Degree 2 >= 50 w u j *“ ♦* ^ Or j^UUI jl • 

j litl pUil jj ji > ( True ) Degree 2 >= 50 9 Degreel >= 50 fa jj •“ w ^ ^ j a V 

^-LSLTI guLUf 09 -SG ±*A ( True tfl) jJL»JL» jf ^SL> Jj .True ^.tUt 

.True 

|: Select Case 4 iofr (aIaamU {jAtJlj 

Lo+i j-Lc ft Alt 4 j*** LajJ-c, JXjL* 4JLai L^»i 3*J If... Then ... Elself... 4J4yjly ^9 

< u ; ■* - -A- 9I t»i« Variable j4 ti a 

49 *) 4 Jb> ^ . 4 «i( >»0 If 4l»» J-aJ f uu ^ 9^449 ** “*;* Code 49^1 ^49 

9 f JUl^J 


AlaaJt » jgi ^aUil 


Select Case variable 
Case valuel 
Codel 

Case value2 
Code2 

Case value3 
Code3 


Case Else 
Code 9 

End Select 


UX>dD jdIj / \ jliC-i 


j Valuel) O* ^ Select Case • 

j^Ia LuIj aiA 4ijli« J& Ll\£. iamj (.... j Value3 j Value2 
: Aj^aLi. ¥Uu 2 ji variable 

J4-* variable £l£ lij Case valuel j*' ^ ^ 

Codel >>ljSri jjiij ^ True Valuel ^jSfl j! 

.End Select <^! J^Vt <»jj <»j 
jl JIaj> variable < '- 4 ^ _ Y 

Case value2 j->' JlAiiVt False <j'\ Valuel,^ 

A j*il Mt a / 'j°" ajaa . ji (JIaa variable lili 

^ ^ a ^\ j 1\ Code2 jjiij j»jj True ls' Value2 

.End Select 41** JlAijVl 

Ajui tjj) 4 fl.il < * jat-ii.« CiUImJI qa {j\ (JA&jj tili. j — T 

l Jjl\ Code9 Jjijj j»jj U ( AijLuJl ^ AjjLum jjxLaII 

.End Select 4i^ ^1 JliliVl ^ Case Else ^ 

■— -——--— — — ~~— ...^y CTiggtprrwsyf 1 






























































u)tt)\dtyoD juuH 

JJ i;* r,g ‘ e,g> value? J*-t jj *jj r ’ g ‘ e,g> P1 gg> j ■rM** ?g f 

(9^ ft Code j—of jf *> | fl<1 5f 4 ill >ii H ( 4 ft mifl) CibjLLlf ^4 jf j 4 -»* Tj Gj$ rvalue# 

.End Select iU* Jl JOiiJfI 

|= v o 

9 i «If Then Elself 4U> &a 1t±» Select Case ^)ii mb ^LyyJI i ujjjJ ^ Code Jji fit 


^ ^ Text Box jaj jj.i I to ^ JL^V J*JL J ZuJUJi J-ftjJJf 

lL»> ill iob (^fikitl jjLyyy ) §1 (j a m ff CnJ* ) §1 (j i *\ U JfJ ) JL* iijjJl Label 

? Select.... Case 


^ START ^ 



GetD 



Case 



T 

> „ 

-4 

, <4 

JL 


>0 


Print 

^jLuu " 


Print 


Print 
jjja " 


( END ) 



( END ) 


>J CH» *a*1 0* CH» jisf JS £>iIlf ****** <H» 

P £>iij 4l+J < D jdtlXi 4**i j-c Jl^u, ^Lt jlj-LTI iLLI >j **14: ,>*>** *&* 

: ^-L> U£;*£Jf jjSJ tl* <jJU 9 < 4ini .a Codes it^SI 


Public Class Forml 

Private Sub Buttonl_Click(ByVal... 

Dim Degree As Single 
/'Try 

Degree = Me.TextBoxl.Text 
Select Case Degree 
Case 0 

Me. Labe 12 . Text = " jJu aJI & j LutJ BjIjJ-I 4j>j^ m 
Case > 0 

Me. Labe 12 . Text = " j-i.^-11 Jjj_i ojljJ-l 
Case < 0 

Me. Labe 12 . Text = " jJuaJ I uJ- BjljJ-l 

■End Select 

Catch ex As Exception 

{ MsgBoxC’ord—I! JjjJJua ^ jj_c 
M e .TextBoxl.Focus() 

Me.TextBoxl.Text = MM 
^End Try 
End Sub 
End Class 


< 


4 1» »»¥) CiVLm *? pJ til (1a$ Case Else JIa *>44 Case < 0 j*ii HaULS j c " 

p' ‘ jc Case Else ^ j*‘ IfCodej* SJI a * iH p*u (j a tl j -4 jtf'l §1 jjlaaJI jjLmu ) 4 Ll >» H 

.End Select iu* jOiiJTf 
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>iUU 















































pqunlU (^9 vuoilV 


: A wyjAli ae 


<Ljtiru ij^JJ 6L_idbj «** ^ » < ^ILUI Form ^i£ jj ’ ^ jytA»> **• 4 fbluU |«J 

Sides J tjajju ListBoxl &f j¥< j j»« j » jf jxJt jJLc 


jv!jaj| q~- lv -"■ U .i^.p .11 Fj'tJ 


~^~U3-J 



QjI^Lulli^I 


^ju^aJI >uH 


Label5 


< 


Label6 


Label7 




-^fo 


ListBoxl 


|J>^UI jJj= 

iui aic 


♦ 4i 


Jb^l 


Vertices Faces 


Public Class Forml 

Private Sub ListBoxl_SelectedIndexChanged(By 
Dim x As Byte 


Byte ^Lj x 4-*^! uLj*j 


< 


x = Me.ListBoxl.Selectedlndex 
✓Select Case x 
Case 0 

Me.Label5.Text = 12 
Me.Label6.Text = 6 
Me.Labe17.Text = 8 
Case 1 

Me.Labe15.Text = 12 
Me .Label6.Text = 6 ^ 

Me.Labe17.Text = 8 
Case 2 

Me.Label5.Text = 6 
Me .Label6.Text = 3 
Me.Labe17.Text = 4 
Case 3 

Me . Labe 15 . Text = 


x ListBoxl SbS? 5 -ajS a Vi 


(j\ 0 ( wti jLaa! AJIa ^ Jjiil 


(jj \jla (j\ 1( ) Ajjjjj jbikl 4 JIa- ^ Jij£jj 


tfi 2 ( ) Ajjjjj jb21l 3iU ^ 


Me. Labe 16. Text = " jl ^ 3 ( ) 4jjj> ^ 

. Me. Labe 17 . Text = - 

^End Select 
End Sub 
End Class 


■ jrt H ki^M tliG J-o Items 4« tol 4 i( JUjk <>o (*** wilt) iii ^ ListBoxl Items j killf 4 ifrj ^ • 

0 4 nl^j Jjki j wi If tl j$^L; < Index b T ^jjJ 4J ListBoxl iuSu 4 Til ifrj f*Ju j wilf • 

. bLsL & 9 .... l 

ifjkr Selectedlndex JiU- j-« Selected j • n Index i*JjJ AJjAA («Ju ^lUlb) • 

. ListBoxl 


. ^Lin j >r>» M juj^> lltfi 1 j-ft Selectedlndex 4**J Jj-t: UjJLc ^LLTb* • 

Index )j“j J j 4 JU Ctjj^ jJLc <jabu jjJf SelectedlndexChanged Cu^t f Ij^l j® ^Ludl OjULS jc • 

jyX -ijJ-l |1 a ListBoxl tbki Ct*£i jaj < Mbit j 9 !<.uJjJ j? < jLL^ju 

.ListBoxl ibStl j >r>i; r j-« j wi '.r ^Li^l jdka 
. ComboBox ft^Vl ^JLc J*LSJU 9 LaJ 4 a d »»11 CiLta^^Ul • 
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<S>U*U\uNiNt«aU 




Public Class Forml 

Private Sub ListBoxl_SelectedIndexChanged(By 
Dim x As Byte 

x = Me.ListBoxl.Selectedlndex 
If x = 0 Then 

Me.Label5.Text = 

Me .Label6.Text = 

Me.Label7.Text = 

Elseif x = 1 Then 
Me.Label5.Text = 

Me.Label6.Text = 

Me.Label7.Text = 

Elseif x = 2 Then 
Me.Label5.Text = 

Me.Label6.Text = 

Me.Label7.Text = 

Elseif x = 3 Then 
Me.Label5.Text = 

Me .Label6.Text = 

Me .Label7.Text 
If 


12 

6 

8 

12 

6 

8 

6 

3 

4 

" JL>j_T4 m 


End 


End 
End Sub 
Class 


4 0 


A ifUjjJj ^ Code *3 c Jji> t i t f+J 

JyLuuJI 

kjy If... Then ... Elseif... 
! Select Case 


f* *** |^J < MX) MX)J ct d)| ^3-LtJl mU >LLLuiIjJ ^jj 

j-«j 3 0 ft j ( jdjX ) jj jJLl, jJLJI jc j ml i 1 11 xx>? jLbl^lxJLx yj I h II) < Form ^$>xLx 

II ll^J j-LLSLJ) jxxJIj jjjJI ajxxg j mJijfcJI 


Label4 


1 


Label5 


1 


Label6 


1 


tLz^l jj ^kdLjd ■ 


| B 


Mg 


IT 


T£ 


JyDjJI 


lSjUI i±*JI 





RadioButtonl 


>x?UaJt 
OJauii^l 

B4T RadioButton3 


RadioButton2 









RadioButton4 


Buttonl 


J 


jjoli / \ 


Then 


Private Sub Buttonl_Click(ByVal sender As 
If Me.RadioButtonl.Checked = True Then 
• Me.Label4.Text = ”0” 

Me .Labe15.Text = "8" 

Me.Label6.Text = "16" 

Elseif Me.RadioButton2.Checked = True 
Me.Label4.Text = "Na" 

Me .Label5.Text = ”11” 

Me.Labe16.Text = "23" 

Elseif Me.RadioButton3.Checked = True Then 
Me.Label4.Text = "Mg" 

Me .Label5.Text = "12" 

Me.Label6.Text = "24" 

Elseif Me.RadioButton4.Checked = True Then 
Me .Labe14.Text = "A1" 

= "13" 

= ”27" 


{ 




Me.Labe15.Text 
Me.Label6.Text 
Else 

MsgBox (" ju* L_L*_J 
End If 


Jl>\ 


J Hr 


") 


End Sub 
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>iUU oau\^U d \spii\ 



















































































u)tt)\dtyoD juuH 

i isfBox jjaCSOf jSj m 1 l - , ‘ Hi “ u,,ll “” j-r * — "*» 5fjj| E£m 5S “** y;j tTtl *■* * w * • 

■ Select Case 4l»» CH»^ If... Then ... Elself... 4 jL*^ pi* -1 ut* *JUd »i* ^9 

ui f.tgito J 9 -SL* UjJLc>LSI «UUlJ Select Case 4 jU^ pb*.l»ib • 

< u ; * tj^l) ^ 9 I u ; Variable jbLLe 

^ 9 ) jjjLU j-»>ig) j-Lfc 0 ; t j jbUd M-«l > »>l J &LLa> JUJUj • 

< jjl “■ M byjjJJt ^ 1 a 9-6 11^9 

If... Then... Elself *1*4. y^iSUt Code j*£J1 Jj 9 ^> ^ 4 J gH2 — i a d hi 11 j* • 

VariablejjJii* ( JsjJLII) ^JLc f.tglto JLS lil VI. Select Case 4 jL« 4 w^iSU Code 49 ^ ^1 

.JaJkj 6 J^l 9 ob? L^L* 9 i Itii j ^.19 

j 4 jLU 4**J j-Lc £.jLUI jill Select Case *U4 M 9 I&XI Code ^ 9 -S-M J j - « J-* • 

j_« iril»» jVIf... Then ... Elself 4 l<I -3 Code Ji laJL$ oj -^9 LmU 9 ! ^Jhi ^(9 
. jIS) 9 } i-^bi* i*-J 9 !^ V jdLU ^JLl ^bb J? ^Xi 

ITTT MUJ»~i~| 

e L^L »9 £J#J1 9 > < ^9 S. II 9 ft>il jl* i^LUl (>• j*iSLll C**JUu LbiljJLfl mU £Ub*lj 4 j-« 

ComboBox thifl j 1 ‘ jJx 9 ^ *3 1 u ♦ ‘3 < ^LUI g ,*3 1 * M ^i£ iS9+^s fLuuL (VJI < 

u TextBox joj ^ jtfjJb 



Public Class Forml 

Private Sub ComboBoxl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As 
^Select Case Me.ComboBoxl.Selectedlndex 
Case 0 

Me . TextBoxl. Text = I >_& I j J LSL^S? I j pL*>^JI UlL3JlS\ p^_LJI j_« 3 jm_£ Dbui " 

Case 1 

Me . TextBoxl. Text = " <Ul_« <jlJ j-J p^ (j-o 4-JJ I j_> J o «■ jjii JLoJLut — ) J o j I j_> J I «■ jjii ^A_) "i pJLa_o p^aj> " 

Case 2 

Me . TextBoxl.Text — ' 4._l_L.£ -iia_3 LjuJ—I I (yLAjuj-J I « (yjS.Ji—) j 4—> ) 3 L^. I J_aJL) >4 ) Ja_L_J j_) o_^ 11 (j._o i ost.j> j_a^o I pJLa_o puL> " 

7 Case 3 

\ Me . TextBoxl. Text = " ^ qmlj> u ^ t 1 xi i ybua ^jul> " 

Case 4 

Me . TextBoxl. Text = "<5 ci^U_J L_> L$JL> I j_Lc j_> jjuft u_L^ puuL> M 

Case 5 

Me.TextBoxl.Text = " L_) p L^u) Uljus ,^-Lc ^ l—oad_I I ^5 (5 J-£i o ja - 0u ^ I tJ >> Ljii_a_) I ^ (J-H'H ‘r x -^ 3 c5 i p^jj> " 

Case Else 

MsgBox ( M p_u& UJLI 1 ^ I j LjJL> I ") 

vEnd Select 
End Sub 
End Class 


toll / \ i\^i 


33 


oib\jaU d^iU 





































u)tt)\dtyoD juuH 

4 ^*‘‘ ;> | | ; 3 l ;* l j*^ , (|1;* l “)j ‘ >> *’ > A^hnHnvl p f ^ : II il,! I : . , .»! «■* * • 

‘“* { i S p;i 4> » I M u ■* ^ tlilj j_« Items L^Li-t JMJ* j-« >^LL*JI 

AmjjJ ^8 tL^jdui jjJIg SelectedlndexChanged 

TrueMultiLine 4 1 Mil‘il 4<ii jiij j u - j_«^i£ CiU^LUl jajJU TextBoxl j^ !t< j»^ • 

djJLj ^4 

fcju If.. Then ... Elself.. IL»» ^IjJtLuiL ^LuuJI I I ^ Code J;* •*; |«J If wyjAj ~'j 

? Select Case 4l»» 




Public Class Forml 

Private Sub ComboBoxl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As 
If Me.ComboBoxl.Selectedlndex = 0 Then 

Me. TextBoxl. Text = JLSJ&lj pl^>^l UlUJiX\ p^JJI ^ Bjm_^ Dbui " 

Elself Me.ComboBoxl.Selectedlndex = 1 Then 
Me . TextBoxl . Text = " <lu> pjf <j_0 «L_3 J I J_> J 0 *■ J_oJuu)l_)J 0 J I J_> J I * Jji) £juL_) ^ pmJJ> " 

Elself Me.ComboBoxl.Selectedlndex = 2 Then 
Me .TextBoxl.Text = " 4 ._>._Lc <£]a_9 Lux JI tyi.aJj._l I «■ jji) tyiiLs._j j £_>_) 3 Lji-1 4_> Ia_i_J j_j <jl^ j.Ji—11 q-o Laj*j> jJljd I pJLs._o pjjj> " 

Elself Me.ComboBoxl.Selectedlndex = 3 Then 
«/ Me . TextBoxl. Text = ” 3jl>>j * gjb-i t ^ l 1 x> i yruo ^ml> m 
E lself Me.ComboBoxl.Selectedlndex = 4 Then 
Me. TextBoxl. Text = L$LL>! jlLc JjjL£ " 

Elself Me.ComboBoxl.Selectedlndex = 5 Then 
Me.TextBoxl.Text = " £jb P L^u) ijuus ^s-Lc * 1 —OuuIlJ I ^ lSJ-%3 0 jtLOu “ L -J I J >> * 1 I £ < -A^ 5 t5 J L-^ puuU> " 

Else 

MsgBox (" f>j_a I_aJL I X>i jl_)JL>l yjf-j-j") 

V End If 
End Sub 
End Class 


£*>•1 Uft If 4JU^ J Else >•*! 9 Select Case 4 jU^ J Case Else LUi jjj ud If j 1 ) • 

^ 9 _SLJf ■*'*** i«i>4ail inH AjjduiJI 4ib> < -7 j »<» 1 * “** >*«<>■ j_« ^Ult 

f jLJJ>l ,o,t^7 ...U j-« i^Uu MsgBox AJUw, <1* LLTLU aJL*. ^9 < L^Oj jjJI Code 



































































u)\tt\dtyoA) o9 juuH 

^o 4 4<i L^J 4 i irtl^f iSjEislBoxI ftTikj Selecteglleira i^tOTC4*“•' y^- 4Ttl 14 *■ w * 

■ String w *j — jti2« <uL 4lfi ^ jjJI ££ n At ^-* “** ijJ String 

:ComboBoxl SbiOSelectedltemsL mU|.| pU j*LuuJ< 11 mjjJ ^ Code jj-SIH JjjuLb ^ I: U MdjJd f 



xx&do y»Vi / \ i\i^\ 
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pqunlU (^9 vuoilV 

: ^LUI JjJaJb Jtua^a jA Ui Code JJ— JJ-u (j^u 



: ^ jjuujjJK uCiJb Ctjj) LqS : Next^tif) OuuJa$ jl jJb ^LuiJI ^ Code ^22 j-« • 

\I-\I+1 ( LmI^LJI a»Ijj ) j! MbjJI Jjju 44JL ( Mj^LUl) Mb} - I 

( f jjuU) ) ^(>SLUI ULLmU End ^L^LTI 4 ^Ju ( M jdtIXt) LLU-i * *J ajuj^LI i^JL tj ZJjtLo - f 

♦ . . ♦ 

: 4JL»^9 

For j-okf j-G j^ 9 VI 9 I Code yf>SG ^ 4 jL$JLM 4**J ( frA ) L^b3» fj*c - } 

9^9 Nextj-okf j-b jUl Code 4 *&Jf .LyLG* a2Jl±\ j-« £ 9 >^< f** 4**J ( j-t ) Lfrj-bJfc - w 


...mi Qi) Integer j»< tg Byte 


End Sub 

jJikX ^9} j_« M Data Type £)Lm iMJ^ ^ • 

A^lii ji«kf 


t TextBox JOJ jft 1 wi Jt jtfjJb >*« I i JjjLjjuJI I yy^jJ Jji> til |«i : f urijti f| 


^ 4jLL£ ^ < JjV( jjuuljjJI J wi a b ji Culll Form jrij-f £$>*uy9 <« m*i 9 f bubf f«Jb 

: ^Jb Buttonl_Click ft^>| ^IjJtbub ( f jtl I ^ diixifl jdjX ) jjj j«bl>l Code 

iT|^S5^| 


Public Class Forml 

Private Sub Buttonl_Click(ByVal . 

Dim M As Byte 

I > Me.TextBoxl.Text = "" 

•For M = 1 To 3 

Me.TextBoxl.Text = Me.TextBoxl.Text & M 

*Next 




{ 


End Sub 
End Class 















































































<S>U*U\uNiNt«aU 




: jJt £j LjuuJf Code ajSf ^2 j-o • 

49^*9^ £4 Lo 4jM i> M j; 4 *1 V # g < i ( 4 i( A)) £449 4U 49 trt<i tf Me.TextBoxl.Text = Me.TextBox 1 .Text & M jxfo\ -) 
fa 11 &4 1 1 hi I in ( Jajj ) J ^9 ^ ^tuJyyMj JJJI 9 & J^Uu LilSj ^ ^9 TextBoxl j^U| 

■< << A *u» 

fiLut Mjjilt) |«JI jjJu ** jJ Me.TextBoxl.Text = M iJupaJl ^LwJI j^ift ifLiS A)b> f 


tjjL 3 4J 


±t ju<$< m 


TextBoxl jaDI jj*-iU jtiJU) 4 4 < i 

^uLLM 44 jaJLM tt» ft >4 £> 4 >if f (fjlll^ .»fj-fcVI jij-fc ) J^Vf jj J-Lt Click J-LLM aJL ft - f 

g »»> t LjljCH 4iJj»l J^J Me.TextBoxl.Text = "" j^ift iiLtfl (V*u £1Ji jjUU) 


123 


I J4£kl j4j4) > 4 VI jj ji£ Click |1 a ^jJmuuu |«t lit u! < TextBoxl jj 4 - CiL^Laa 

j_L L«_* 123123123 gLiLLff 4 j jaJLH 494*44 Silo Cd>* (f^l 


123123123 


JpJjJS Ct*J. TextBoxl jaUI JJ-Iaj ^LSjVI jij-fc LLLSL* U-S - 1 

f‘ ■“ * j ^ ^jJtLuuJ vbCrLftjj^Jil tLqJSJi ^ijJtLuib iU)i) 44 .aa> j u “■ 

A**! jjLUK 4 ^4 < g .’ll 41 ) 4 a»$J |)4 Enter JU>ilft ^CyUj^pjuiu ^ 4 ) 444 j u “» 

C- w* 1 jJ 1 * r—■■> ^SJ TextBoxl MultiLine 

: ^LLM J-SL4LM JUS ^9 - ■» 

Me.TextBoxl.Text = Me.TextBoxl.Text & M & vbCrLf I 

Visual Basic Carriage Return Line Feed J jLiaIaI ^4 vbCrLf ^Sj^f 

| ; r M.j 4 ~ii| 

g-CL-jj-l J 1*» J9VI jJUuljjJI Jj 44 l( j 1^1 lltjl 4 -JLLJI 4 h>j 4 » 9 Jj-l Cllj) h >» Jjj) 'Hit f«J 

1 Button jlc Click jJLUJ i> i f iU)i) TextBox j44 494*44 ^ f 144JI ujja J$>W 






































































u)tt)\uupD juuH 

LtilS -p . J 9 yi ^T^JT Jj>ayLM > i ; g 11 > U-S Form gjj >u « ^ <i g wiij fQy| jj5 

: ^Jb Buttonl_Click £iJtJd ( f ujJd ^ AjkO^J) Code 


TextBoxl 


Public Class Forml 

Private Sub Buttonl_Click(ByVal . 

j Dim M, prodect As Integer 
k Dim str As String 
.For M = 1 To 12 

str = 3 & "ce" & M & " = " 

prodect = 3 * M k j ITI 

Me.TextBoxl.Text = Me.TextBoxl.Text & str & prodect & vbCrLf 
SNext 
End Sub 
End Class 



Button 1 Th 

I 


2 x 1=3 

3X3=$ 

:m=s 

3X4=12 

3XS=1S 

3X6=16 

3X7=21 

3X9=26 

3X9=27 

3X10=30 

3X11=33 

3X12-36 


: «4bJb ^jLuJI Code 

( prodect = 3 * M ) M j^t it) i 9 < i ^ jjJu J S £4 4 j J ml> ^jj iit prodect ^juib 10 j^¥) ft j 

()li ^9 .$) 3oe3= 9 ) 3ce2= §1 3cel= ) uj irtt) J^^L>r ^jjiit str 1 g ^^UV) ft k 

< r < t jJjp <o=u <L+- 4 str = 3 & "oer & M & "=”) M jljutfl 9 I jjjLUf <U-j j4jLJ J* £4 

m j4jLaL.tr .. . i .r 

pU *«7 n.b prodect jjJtJUU rt a 11 <i > p jJ u ;jj str j4 *HI h a 11 <i i TextBoxl jaU) i in (iajj) Jju»$ ^ I 

& JijjJI 

j u “■ 4kiLj>y vbCrLf ^ij_il Cydil i«»>»( m 
<t<) J M j 4 1»tb fUilSyig Variables CitjaUI tla i«»>»( j$jj JjLuuJI i$£J 1 Lllf ft f f n 

:^La. If <. <t<Y 




































































u)\tt\dupA) p<*unll\ juuH 

3uEL 5 ft 4 J^yf JSST^TIiflS Eg Form >i>^^ wit 9 fGSST jgS 

: ^Jb LqS Buttonl_Click CiJtJd ii »tb ( Lo yjj^ AxojJ) Code 


Public Class Forml 

Private Sub Buttonl_Click(ByVal .. 
Dim M, prodect , NUM As Integer 
Dim str As String 

j < NUM = Me . TextBox2 . T ext ^ 

Me.TextBoxl.Text = " " 
rFor M = 


TextBoxl 



k 

k < 


= Oo 12 

= &uiO&^!ce n 


str _ 

prodect = 7 


& M & "=" 

* m 


7X1 = 7 

7X2-14 

7X3=11 

7X4 - ?B 

7X5=35 

7X6^42 

7X7=49 

7IB=S6 

7X9=63 

7X10=70 

7X11=77 

7X12=64 


V »■ -_ -<1 2r I 



TextBox2 


L*p > J-tf- il> 



Buttonl 


Me.TextBoxl.Text = Me.TextBoxl.Text & str & prodect & vbCrLf 
^Next 
End Sub 
End Class 




' obk Text < 


: ^4 j*LuuJ> Code g* 2 a • 

_Lq NUM = Me.Text Box 2 .Text j u t( <<JLw»l j 

. NUM jaajlJI jjJtlXI 4UyS-$ TextBox 2 

TextBox 2 jdJJI £j>q Text 4 **ijjJI 9 NUMjjuLUb f ^ f jjulJI J<>^ k 

I: For.Next tjA ojL>JI< u|j*JI tj* joSfrAJlj 

jfjJLq9 < 4 J a q»i j* j t ml LqJta Variable j; 9I Counter q(> 1 11 4 q»i 4 ill mt) .jLkjjjJJI 

: jJLc £*++. ubjJJ jbJU 9? q$Ja^-t yqaii ^t 9> qkt i;L£» ^ Step iqX* iiubl >M '. Cf £***> . I LqJb <UjLj 

. «, i t?.«t? r,« jl» (^ jjJ. Jolt... r jL» o-* j**f »4bjJt Jjk». j 

LJUt Step oqbjJI 4**i j9-SJ ji ,-Uk 4JU-I oij» ^9 End 4 **i j* jtSI Start i»|j-JI 4 **i Jjl+ CJLLSLe US k 

9 f jJLU 9? (qij Step oqbjJI 4**j 9 End 4 aL^LB 4 «J 9 Start 4 atd^Jt 4 «J j9-SJ $f jJLc Lq_S I 


4 i >d 4 9 ? 4-fcJbuk* tlyd 


A,Uvl) <LalaJl Alu/alt 


For Variable = Start To End [Step n] 

Code <;- 1 



Next [Variable] 



Next 4-*^ ^fUjj For *bdlj Ajj)jUJI AibJl ^ i^u 

: For 

Counter c3^ Variable ^ 

.( jji jj ^ JJP AJUj ^jj Aj&fcJt 

( jji jj ) AjJiP Start A-ojS AJ j — Y 
.( jji jj ) AjJJC- End A-ojS AJ Jj JslSIj — f 

^ 2 j l^Llj£ ^ u*J Step SJbjil A^uS - £ 

^ AaJajjjS) A**j£ lib AjLaJl dJA 
. CjIja3I ja ^4 j^xJ djIj£j jIjaJI Code 4 — 0 

j jJlL^I ^xuj) I^jujjj AjjljUll All^Jl AjI^J (j I Next — ^ 
A^ajS lib AJbtJl DiA ^5j AHjU£ ^jblilj [jjUblJ 

.For 4 -aI£ ^ Jill jjxIaJI ^A A-iualjlflj 


j_Lft 4 _TVjJJ (j^9 [ ] J & HI W jqyua^i CtLqXSLM jquu £^>9 ^ ^LyyJt ^LxJt JS^Jt j-q 

. ^LuqJI j* LL»>J« UX IjJtttjlJj 4^J l^b 4JU-I aIa ^>9 l^JULS f>±c. {yZ* jl 


ifi^do yjoVi / \ 
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> i\ll\ tbxul\ 























































WunlMo&tuull 

: For <dofr uis <4iel 



: j< ->-f j-« • 

.pjjJt AjLLS f Step I 4 XSJ Counter jIjulM 9 t jjuLLqJJ SjbjJI ( 4**i ) Jjul* jJLc j 

4**i jy> jtd 4 **i jj-SJ 0» 4JU> ^ Lib* jj-Sb ^ Counter jIjulM 9 I jjuLLqJJ ojL jJf ( 1»J ) Jjul* k 

^ A fl.U.1 j4 t » 0 1 rt jj tl 4il^l AJhA >>lf jJt£ j$^b jl OjbjJf JjjK Ll<lbJI <1 a | <i t £] g f I 

Single jl« <Uj >>> 1 M j<) >» f tl J> Hi Data Type jbj 

. Cyd Variable ^iio jj^b jl ojbjJi J. 1 4y|juJI -* a t S, t m 

. muiLL* Variable j4 tT 4 Counter 4ilil *-tJ^ n 


ifi^do y»Vi / \ 
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oU)\)jJ\ djpsb\ 
















































<S>U*U\uNiNt«aU 




*±JLil Ciiici I no $ A ^U 


Public Class Forml 

Private Sub Buttonl_Click(ByVal . 

Dim M As Short 
Me.TextBoxl.Text = ”” 

For M = 105 To 4000 Step 5 

Me.TextBoxl.Text = Me.TextBoxl.Text & M & vbCrLf 
-Next 
End Sub 
End Class 


I JJu fL^yb : 0 - 

! Button jj Click jiUi jJLa TextBox i ^ £♦ ♦ 

=■ i ^ 


£ 


TextBoxl 



Buttonl 


X 


105 

110 

115 

120 

125 

130 

135 

140 


□ 


Juj I 

0 qn maJI 


mulM Ctlrtfl >rt o j( 6 {J JLa rt g ... rt n £>*** jdjJLT fjiOl ^ <uLLSJ ^ [T 1 wyjJd g 

? Button Click jjLUf jJLa TextBox j^d> j$ii i wi ^ £ ♦ ♦ ♦ ♦ A$-o A 

Public Class Forml 

Private Sub Buttonl_Click(ByVal . 

Dim M , Sum As Integer 
Me.TextBoxl.Text = "" 

For M = 105 To 4000 Step 5 
Sum = Sum + M 
Next 

Me.TextBoxl.Text = Sum 
End Sub 
End Class 


Lo ^ jJU i o in 2 11 J LJu ^Ui 1 ‘ 7 ‘iJ* 5 ^**** d e* |i~* Q| 

^ L^JL^oj (oli UJ TextBoxl joj j$ii i tn ^ ^yu Lo *LUj <>o TextBox3 jaj j$iii in ^ 

! Buttonl Click jiUi jJLt £Uo$ Labell £jj-o ^ gjiLiJl TextBox2 j$ii i wi 



JU*U 6jL>il<U«i 

«l>ji <u*i+*i**u <uu*ii «*yyi=<ujijUi <uui 


y»Vi / \ 


42 


oiu\^U dj£xuU 






























































































pqunlMo&tuull 

: Do While.Loop «U*II j»l*ftdMtl :LiG 

. ^uu Jtjdui jlc «LL> ji£ CiljJtl j_« ijjtJ MbM Code 

. gfeli J c MU ^;“‘ A jijSJJi CtijA Mh£ djjJLA 4Jb> ^ *‘- AA ^ hjjjj 


4laa.ll » jgi ILaUJ! 4*j^ll 


Do While Conditional Expression (Ja>A3t ji j**^') 


Code 

Loop 


U jtjSj yjll J->ljSfl 

True ^jlj (jis 1 all h 


Code Do While 4iaaj J >^aLd l • 

True ^lajAdilt jjjaul) LalUa 

tjA 4 &jaa a jtjSll »<■%-., 0 q jIjSjII j^| • 

Vj ( True ) OP* til jaljSfl 

Lajjj '*;■ ■■'* jtjSj CAja JX- Igl ufljau 

( False ) Jaj-iJl jAaij V Ujjfr jIjSUI <^$11; 


a <--jAa i 


JLi*af jji1>rt Buttonl jj ^_Lc Click j <i»1) jma ,.j i u t ij q^qjaJ) a$S <uLLffg fr * 1 j*J 

jji1>r> ListBoxl fquujYI JUdj JLi»a5fl ^li n q u » OK jj j <i»1) juu$ JjSfl JL»»a5f InputBox 


« fUaiiiTI JLi-al fl+,1 pla "ql^il" 4-q-Lg JLi-al ^ I.LSL 69 ^lllf ,*-ui*l JLm* jjSt o^q InputBox JLi-al 
a±SialLS je « J$fcl J— a »< ^ C.gltl Form gq** 


9 fLuiil f«*q 


: !jJb US Buttonl_Click CiqJd pU »S i*L ( <Uuygfcl JLi-al) ^gfcl & jaUi Code 


Public Class Forml 

Private Sub Buttonl_Click(ByVal ... 

Dim x As String 

C[ Do W hile x < > ” » 

J x = InputBox("Enter student name") 

Me.ListBoxl.Items.Add(x) 

Loop 
End Sub 
End Class 



-.‘jUzJI .^JL, 


i --^- 1 


Enter student name 


: ^LLTI InputBox JLi.q| j+JL, ( *Ud»*t JLk.iI) >q*l jj jJLLH 

r : jJ> d I 11 * ml jju) ij^LyyJI Code f gill 

i~i » > < f«i 1 m 0 Ciljd jftj 1 1 0 j 4 d <Uj)j TIP ojtJb j 

^9 InputBox JLi>af j$> i irt liiito jLqJ JLi»qf j(j V»II _ J*-j 


Cancel 


jjU^U >lL>»Jdl d^JLTI gUrjl* .11 q 1 »J Jl.n 7 Htl ^ InputBox dJIjJI ^l t iS ml k 

(iiiU d 1 q >j) d 1 | qit |ft l »«1 hi t l I (| I »ll jlll (q 1 i tl Cytf 9J9 » . String g^JJI jd 

■ InputBox JLi'dl jgii irt ^ dJLi>al ^ Lq ^Lc XjjtID I 

. ( <L^.I) <LqJ^ J 9 U 1 J H x 4^J of ULb True JJa^i Do While g« ^b>dUiJI jjUjLUl m 

.End Sub Loop ^JLj ijUI .I a lj 9 AjjIjSJJI iilll frj3z$ False gr i inj ( fL^jl) 4^11 ^ n 
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uMttldtyol) pqufilH o9 juuH 

tSGSfl jsf $ &**' 7 aUl^f Ja^M L£»f ListBoxl £ 94 * 1*0 ^XT ( <L$JI) 4*jLff tSGS\ Ja*»3C7T 

ListBoxl ( <L^() lUg iiuil ini,;?) jj-jLLM jL*L*.| aui ^ jUt U.Ul Jjl J-J £**» jJ 

Xjjtitl h q|i LojJLa (j^jy |^ If X = "fl^if" Then Exit Do : j-oVL iiLaifl <Li»A jju Jaj-uj yLyai 

j 9 *j ( ajjIjSJJI AtHiirj j*o ^t>lj Do AU » t>o »>uiLt \) Exit Do >4*1 \ <i i i ( «L£jl ) i*JLS ^)Luu 

Do While^J uii ^ yjIT tl if Jaj.mJt jjititl jLLi>l 
JU* ^4 4<lil Jir|j ^ Do While dujijSJUJi 4<lil 4l»» ^4 g^jyM ^ Exit Do j4ift p 

Do While 

<jaUM4 < ‘.*3* g>< j» 4».»InputBox jUot j)jJy4 ^ *;***'; (ftlj-Jifl **J» ( «L^jf) 4<lt auULff q 

OJi tfl »LL5 jSuj HUi jy> gpt ,>T (auLtfj) j( () Ltf^L^f Orfft C*i Sj*^ U^LLf $J p v »».D J 

.1iS*b JajJjJI auLLSJ 

Do While x <> "*L^il"And x <> "*L^iJ"And x <> "4_»L^i"And x <> 

* 9 ( <L_^() lo-Lg ^jUuJ * x i*-i ULb JJ-Ij*. U jf>S3 ^Uf 9 And u 4hlt) J-oLUl fltrf.lioi je r 

. ( d-jL^j ) 4<lf ^Lmw V 9 ( 4 _jL^j ) 4<lt ^Lmw V 9 ( <L^jl) 4<H ^Uiw 
: ^LLTI t*£J1 AjLLS ^ iJG Ojy> elj+XI 1HH dJLc ListBoxl auULSJf iiUel j(>£j >3111 s 

Me.ListBoxl.Items.Clear() 


: tjJb LqS AJb±JU ±ju Code fyuAj 4 JJ* 



iisti ifJLA For iijijSJJl HH\\ 

M = 1 ^9 jHHJU i*-J - * 

3 n+ZH JJULL. * 9^9 ( ) jfjXUI jf>e^4if J»>J# - r 

Step 1 ^9 4 ^ ajbjJf 4 <ii - f 

u_s j irtfl-.o 4 4>i >» » fij^i r j\ has l 4 Do While For ,>• fii k 
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uMciwl) 


pqunlU (^9 iuu)l 



: qJbLuuJI OL-Lq-c j^> • 

jdLU 4-i.U-l jjuLU jLS |q| qJbLuuJI " ; ;j *> » £LJL» jitf tlL^ Do While For ^4 JjpJJ) J 

■ JJJhA 

) *1±Jl£ ^jUkJLo Ii 41 1 ii tuljlj ST7W jtl^> ^ Lyk AJ()0 hhD o While For j*t Jqj i»itl k 

Cytf |j| For AU» ^1 Do While AU» Jqj »«7 II jLSLf 1 ;j « ■">» '-• liJ < ( i <i 1 4-1 jjJti - 9 ? 

jqj-t j^iia ^ U^bj-u. > .»_*. 


Do While 


^ Timerl 


Timer 614 ,»U4*rfl: UJti 


.i. 


tltJgJ q 


Code q»* i±iH jIjSJJ 4 oqj*»*q i-J_qj o^L» qq^»q Code q»* i+iH jtjSJJ f>±SJL 

. Lb_Jj_q C<k1c q*£Jf .L^LL! Uj-La oj-J-q ^ £UjJ • 

qj-SJI (1 a ItiJu j(>Sq jSJ 9 Do 9 For qJubmJt Aujt^SJJt i^OUl ^ Timer cJ|4f fl.t^Intb q^-SUI ;l>£j Jl • 
Ait of JLajX jJ. 1 ftj+t AjLLS 9 t Ait of J LLX Jaj-jj £** 9 «_Uk IdJ « qqj^q ^Lqj S^L» qq^q 

JuL^, XU Ji q$-SLri dwbiJLq jjf 7 , 10 VI9 

AjLLSJ Timer olqVI ^jU DblClick ^jqjJLI jJLLH q^ j^Jaq jjJlj L$J ^jq>f jZJXi ** Timer olqkj Tick Ctd^l • 

■ Interval A1 inl'il ^ qqdb^l ( L9I mTtl) A »i qjJ) Oj 7 <i II jjj-q $■*$ < <U Code i^SJi 
: 4J <LjLLH Properties jqyJl wt i» Jtj V Form gig q»I) ^11 Timer olqVI 4 JLm»I dJL 


Aijia^21 AoJaljoSVI Aaffit Ajgq^lAll 

False c aUj) jl True cjSj-a2I 

Me. Timerl. Enabled = True : Code 6^ 

False 

Enabled 

( AojIj ^ * * * = Aojlai) ) AjjIj Lf SlA2LTimer 41^121 <uiaj2l Sj2i2t 

^ . 

Interval 


t f t l‘> I q »«ii‘i) Interval ^q-duu Cdj I <i II tiq L 9 I mi 0 q»»qj CiljJhi jiq Timer Jl JiLmu i ( i < tin Tick Oj^t 

True 0 * Timer jJLSJJ Enabled 4*q«LM 4**i jj-SJ ^1 1*4 Lq_S Tick Ctd^l 
»L >JU A+j*^ aUu aaaJL *-4 ijjLuuLLq 2uUj CttjZM JS Timer jJLSLII *>;-•* $1 fl.t-j.! ...I • -•• ^SJ 

True Enabled j*-£-qJ-H LmU 4**i jjujL! Interval 

. qj^»l$ ^LqG 2UiC ^JLU I ♦ ♦ ♦ J ^ 9 ^LUI Interval Lu^UhJI 4 4 it jmLJ 

False Timer Enabled ie-Liaj ie-i^ivi i**iji 

100 Timer friiSJJ Interval q- . o> l » l t ^l^iyi ^J) 
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uMciwl) 


pqunlU (^9 iuu)l 


*“**^‘ lf *"' i *“ jj v j * t ^^*j^ tl *j f •\‘ < * g 3fi “**;(»iwjjti - 


: JOJl JSuLli J US Form oiiLt ^ •— ^ 



J.i ml jJLa LiLM Tick h iV.j , True Timerl Shkl Enabled 4 **i ^ju ^ • 

^Lmm Ljl >n 1 o <iii«j CdjJki Tick CokJd *> ‘ - - < 1000 Timerl »bkl Interval l^L^I 1»J jjujlJ ^ • 

,i_^Li » 

.J^MhU J^uu j^JL* ^ Fixed3D ^1 Labell Shkl BorderStyle LmI^I 4**i jjujL! <+a • 

Timerl_Tick CuJd gJLfc* J JLJI a*SJt LllSJ Timerl SlAl ^jU £j.»>Jt) jJLJi ^ jc • 
Buttonl.Click CiJwJd gJLafa* j JOJ\ a*SJt LllSJ Buttonl SlAl ^jU £j.»>JU jJLJi ^ jc • 
Button2_Click gJLafa* j JHJ\ a*SJt LllSJ Button2 olAl ^jU £j.»>Jt) jJLJi ^ jc • 
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uMiNdtya)] <^9 juuH 

■ j 4 IU<) fl TF htl Ul$ ly»L) ^ ijlli I I qAJF jkg^gjjC L^U Nowu aJTaJT • 

False 4 Timerl fril 1 If Enabled 4 i tnlil u h t*t f Tick Ci.J^-£l £$_£$ j, < t • 

.Buttonl_Click 

Sil jrtt kil ^yu i-bL ^XjU 1 ♦ ♦ ♦ aju gUjbJI jj ^ ia^Ni in guobjjJI Jit iin ^ • 

U^jju <Lbb 1 Timerl Sbkt Tick *ij^b j*L*l flj^ttl ^ i-biiS ^ &**» < f-LSb > 9 .ibliri juu 

. lb»i^ ixbuu Labell ^)lj) if t) £jj-o ^ |U < £*£$^ 1 $ gyjLbl 
: LqS TimeOfDay() 4 J|jJb Now() iJt±J 1 JUbbuil £LLSLc £y,LLn JaJLi £j$JI jijju Labell <> 5 LSbl Jjuf • 


J 


^5>o 


Private Sub Timerl_Tick(ByVal 

Me.Labell.Text = TimeOfDay() 
End Sub 


l ■=■ I ^ 


01 : 08:24 


u 


jaj jgJbk Label obi ^JbJI Form £o$y? Project g^ilLo ?bubb f*£ 

jJLLH .LLfc 9 fl&A$ <LJli uLtaa ojU ydiii ^ i+tti yuy ojU Label hit j+laJi ^ 9> juat J : » «* « ■»* »3 "‘‘r** ■■ 


«d!J^ 9 | 


gi a»>y>$ jj j 1 * ji« iui jj jJdJi 


j< J 9 ±i Label ^I^JbLTI obl>££y tiLLl jj 

!^5>o 


JaJl CjIjLuij) 


.Design fp 1 0 irt 1tl "4 1 Vti" ^1 L jJ Text 4 1 tnl> j4t tl f*yb$ Labell £}I$JL^ obi ciby^i j 

■Design^ ip wiltl £4^9^ "libLl"^ "Jit imTJ) Lq^J Text ii ml i* ji < tl f*yb$ Button! 9 Button 1 j-ol jj ^bf tib^j k 
.Design jp 1 0 nil tl £44*9 ^ True i q 1 i fI *J Enabled 4 1 tnl> j> 4 1 tl f*Jb$ Timerl *~i i$ 0 obi lib^y I 
j^buy L^bylo 4 11 oj £iljJLi JS Tick CiJb^l u tj+^ <500 ytt Timerl oblb Interval JLta^bM ^ 1 - • jL+Ju <* 2 i m 


lyd 



n 


JLi 49 -SLM Ii* JuLLSb Ihbuuy ^1 gi irtit Timerl_Tick 
Me.Labell.Visible = Not(Me.Labell.Visible) 

4ti>^U < J 4 iuq 0 tl J^ljbj Lq gub jnlr J$ trt if ^ii^i iin jlil^ Not ^ 0hi tl J^bbtl ^l.i i>i ml jjc A 1 vO 

( False True ) 4Jkb 1 tl J 4 itij) 2 tl Ji»|jy U jf 


True ^ubJI Jt^Not (False) ^4 iitj) 0 tl Ji»ltU Lo ^ lalf False gubJI Not (True) ^4 io<) 0 tl J*»by U jlX bjJo 
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<S>U*U\uNiNt«aU 




jjg TextBoxl jaj j$ii i J Form Project fbjyb |U : )X O 

ListBoxl I q tl i U j$ii \ w> L.i f (irtl JLJ^o ^yb ( ijjjJjf ) jj jJtuJi 

i q U S Ii j^iii >rt Lii r 1 wil |^| ( ) jj ^ jJLUI u! < 

► ListBoxl 






2 

4 

6 

B 

ID 

12 

14 

16 

IB 


IB 


0 


?£U& 


sui>y ^IlCl 


iiiei 


aIa^ ^ UVu dabDo while 



Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim N, i As Integer 
N = Me.TextBoxl.Text 
Me.ListBoxl.Items.Clear() 


*-© ^ 
Do While i <=(N j 


Me.ListBoxl.Items.Add(i) 
i = i<Q) 

Loop 
End Sub 

Private Sub Button2_Click(ByVal 
Dim N, i As Integer 
N = Me.TextBoxl.Text 
Me.ListBoxl.Items.Clear() 
i =© 

Do While i <= 

Me.ListBoxl.Items.Add(i) 

i = i(T2) 

Loop 
End Sub 
End Class 






Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim N, i As Integer 
N = Me .TextBoxl.Text 
Me .ListBoxl.Items.Clear() 

For i = © To ® Ste pCD 

Me . ListBoxl. Items . Add (i) 

Next 
End Sub 

Private Sub Button2_Click(ByVal 
Dim N, i As Integer 
N = Me .TextBoxl.Text 
Me.ListBoxl.Items.Clear() 

For i =^^To @Step(F) 

Me . ListBoxl. Items . Add (i) 

Next 
End Sub 
End Class 


1 £4 ^ Ljlj % T It iilil j4 i T « - I Ji ^UyJI ^ ft 

2 9 ^ ^9J *** J AyljSJiJI iJLLJ-i j4 * J U ■ f 

i - ! 3‘ u ‘‘ ** J3* “* A „ 1 ** * ‘ *j A Dim N, i As Integer • 

J* J UAjljSJ j-« 

^>ULH j$_SLri i_,LLS i-JG J-Lt ListBoxl 4_*LLSLTI iiubl jf>SG JMU • 

.ListBoxl £»L»$JL^*4 ^um4 jftjJJLyu Me . ListBoxl. Items . Clear () 
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N = N - 1 
End If 


Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim N, i As Integer 
N = Me .TextBoxl.Text 
Me.ListBoxl.Items.Clear() 
rif N Mod 2 = 0 Then 

1 "® r, 

Do While i >=(1 

Me.ListBoxl.Items.Add(i) 
i = i<£2> 

Loop 
End Sub 

Private Sub Button2_Click(ByVal 
Dim N, i As Integer 
N = Me .TextBoxl.Text 
Me.ListBoxl.Items.Clear() 
rif N Mod 2 < > 0 Then 


N = N - 1 
End If 
i =© 


Do While i >= (2) 

Me . ListBoxl. Items . Add (i) 

i = i<£j> 

Loop 
End Sub 
End Class 




Public Class Forml 

Private Sub Buttonl_Click(ByVal 
Dim N, i As Integer 
N = Me.TextBoxl.Text 
Me.ListBoxl.Items.Clear() 
rif N Mod 2=0 Then 

i 


j 


N = N - 1 
End If 


For i = ( 5 ) To Q[) Step Cr2 ^ 

Me.ListBoxl.Items.Add(i) 

Next 
End Sub 

Private Sub Button2_Click(ByVal 
Dim N, i As Integer 
N = Me.TextBoxl.Text 
Me .ListBoxl.Items.Clear() 
rif N Mod 2 < > 0 Then 


N = N - 1 
End If 


For i = @To@Step ^2 

Me.ListBoxl.Items.Add(i) 


Next 
End Sub 
End Class 


: £jLuuJ f 4J0 ft 

^ TextBoxl j^ili ^ N ^ ^4 jJbfelU ^ ^ 4 1 §1 1 hi If jjt j 

1 ^ N ^ ^ * i^lJul ^yLi True juG jLS bli 2 J-JL * fA 

M TextBoxl j'-• M jjt < >rt ^ Jtl NmjUI jl^ 4|t< trt) If iiLiif k 

J • ^ ^ ^»» 1 ^ N d)ii gdlidl |«li True guG |jji 2 jjU 4 < >» a H J < <n jdji 

N Lj rtfl .l mW J 1 jjjLU I 

-2 ^ i-JLu* 4»J 1 jjJiilf ll*J SjbjJI Jjutoj , jjulM flj-Kl > 2 jjulM $ jjutTf > 1 jjuUI 
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jjg TextBoxl jaj j$iii >rt ^ JL*»xj XJL &9 Form Project f LuuU f*i : 10 Mbij^ 0 

jf^-Lx jjj- o J^»b 1 <>o ( iLjjJjf jf jb^kl £&+*** ) jj ^Jll, jJL-LM 

J^b J ^ j 4) f <>o £ 9 ^** o f*JL; ( jf x^kf g $ ,»jNX ) jj jJL-LM Lot < Label3 

! Label3£f$l^ gjj-o 



Do While ^ hVu ^b 



^Public Class Forml 

^ Private Sub Buttonl_Click(ByVal 
Dim N, i, Sum As Integer 
N = Me .TextBoxl.Text 

i =Q 

r Do While i <=(n) 

Sum = Sum + i 

i = i(Q) 

Loop 

k Me.Labe13.Text = Sum 
^End Sub 

f Private Sub Button2_Click(ByVal 
Dim N, i. Sum As Integer 
N = Me.TextBoxl.Text 
i =(|) 

r Do While i <=® 

Sum = Sum + i 

i = i(Q) 

Loop 

k Me.Labe13.Text = Sum 
'•End Sub 
End Class 


£ J 
4jJ ji]| 




Public Class Forml 
^•Private Sub Buttonl_Click (ByVal 
Dim N, i, Sum As Integer 
N = Me .TextBoxl.Text 


-© To ® Ste p© 


For 1 

| Sum = Sum + 1 
Next 

k Me.Labe 13 .Text = Sum 
'‘End Sub 

^ Private Sub Button 2 _Click(ByVal 
Dim N, i. Sum As Integer 
N = Me.TextBoxl.Text 


For i = © To ® Ste p© 
| Sum = Sum + i 


Next 

k Me.Labe 13 .Text = Sum 
'•End Sub 
'End Class 


L^J fQ+j £j-o J S ^ 4UJt (i( irt 1 nt jiJt ^9 Sum Jb|Jb> j4 i 1» Jx jjg *Uf £jLuu Ji ^ ft j 

Sum = Sum + i jAdUAik 2 J\ iU4. i JULW UJ 

4 i I 4*1 il lill ***** XJU j!) Ljlj ST IB iilil Me . Labe 13 . Text = Sum j ft lit liLxl jjg k 

Labe 13 ftblu Text 4 i wil'Nlt Sum 4 *J» jrtiirti ^ XJIL* >09 ijjfjfiLJf 

1 iii >rtifl Jliaj 9! J9 1 1114 6X^9 Dim N, I, Sum As Integer Cifjjt <tf Jx i^ix^l ^Ju ^ 4 ) i >4 I 
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(Procedures l.) &a»U 


A Q ni l AJJy»r L a ii w^i 11 ,iu.i.j ^ hi g 1 f ojjA> Form olili iiUbf jJLc : *»*&* 

: f«Ju 4 a i t, writ) 11 a JUaJ ^ 9 $ : Forml i p mV 

j 4 JL 4 jjj CjjJ .1 ?(j^.( Jlo o|j^>kl CiCJtLlo 9 ! Event procedures o|j^>kl alfil ^)Lckl 121 

■ Silo 

Jlo Block _> u-»juuljLo j^Lckl dJi£) Constant Oj 1^9 variables ol^juLUl ^ El 

. tAjtlg For... next 9 If...then 1L»» 

) JLIaJ ^ 9 I ( JLbJ ) Class > til until j$JLujlo ^Ic. f (1 a j( j ^ qU j>o0 

:^LJf JLiXL l.g.^.( |)4 ju fl^>l J>b jdLu £>£ Jlo 

I* jIl'tH Jljyftkl 9 jfjyftkl jajJLS (OjiUI ImjUI j** 4jULS 9 irtT.i ^ |: 1 


*. Buttons jul Jjj -iajubii j*L& <£0*9 Label £jj_« 


D J iw jJL I • i U'i jS 


0 




Button2 



suijAli ilu:ii| 





Buttonl 



Labell 


Public Class QFormr ^j 
k Dim <£otal As Integer 

Private Sub B uttonl CliclS fBvVal. . . 

W ti! ^ 6-0 4_OjJLl! (j 2 )j_c 

ITIDim^As Integer 
Me.Labell.Text = MM 
n (for) i = 1 To 10 Step 2 
Me.Labell.Text = 

Me.Labell.Text & ” ” & i 

Next 
End Sub 

Private Sub B utton2 ClTcB ^BvVal... 

M* ^ I ^ quo 4_i_> J j_J I (jij-c 

ITlDim^As Integer 
Me.Labell.Text = MM 
n (for) j = 2 To 10 Step 2 
Me.Labell.Text = 

Me.Labell.Text & " " & i 

Next 
End Sub 

End Class | : jl j 4 Jj-iLuuJf i$SJ1 

■ Forml CJt’ Class 

guoG jd ojJli4J .Forml i flii wiifl ( JUa 6 ) ^ total puuif Variablejj i 11 g ^k 

9 Buttonl_Click p 444< '** ^ « Forml — ui (jL_b_.) jj* “• - cuut. j_c jiL_csri 1 

.Button2_Click 

. i puuif 4 ZaJL < Button2_Click 9 Buttonl_Click git g it Variables m 

.Button2_Click 9 Buttonl_Click ots^jw For Block CiUJbn 
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ijfr U ja\j\ <y* Button 2 _Click j Buttonl_Click jIjSj la^Ldl <> 

(jjs* 1 Lj(f ^ j f \j^\ AjUSJ AJLjJa ^hVu*ii p*\u *i A^Uit jjlauilt ^j 4 j Jl-lxil 

ff Cj)f tj^Vt cr^ L* M j^tjVt J jg^ j jtj^t AlSoi* Sj^ <> jj£l 


.LuLLi ^yu fquuuttf |1 a g( r.i 1 »il jJL^ < U fquud C*Jr Code Cd a 111 *7 ftg jatljifl j-o 


: Procedure 


«JL agjti Function gt k 


*Jb i*JU V Sub jg-£i Ul j 




iUjjUI lAglf i >7 mi) jJ-e g ( j <7 i ll >u tl jt*j 3 ** ) t^lg oj-o a»f j I aj bU X 

.Procedures aIa f i< 11b fr£L*l ^ Code JutlS ^1^X2ji^| 1^ 


. Cii q * i *? 119 ^ 9*1 aIa 

j Procedure ***** • 


|: Sub giUttl 


It JJ.fi &*** j* jiSi J 42 iLLS jjC 7. »> Code ag^ LLtjJ jLS U tit 4JL» ^ Sub ftj^TTt j-c jiLciU Lai 
|ftjJ fif 4 hit tl f* £-*9 A 1 4*3 J^y Code 49^! JuLL^ ^ 1 ft il iMfiii ^ Class 

Sub Name ( Parameters ) 

Code 
End Sub 


Sub CP A-alx5l 4jLbua]| 


. Sub 4«K> Sub 4 j 

.Sub f^uud j4JU Name k 

Procedure 4lA.i1 »il jJLa Ji Si »n^Uf ^ 1Sb £aSjUa ^9 ( h t( 109^ fI yt^ULUl) Parameters I 

. Data Type £Uy £94 4J9 Code a^t>^uy;*iJtg 
Sub f 4 lAyJLud jJLa ii S11 10 £*i q i It ib§ j-o^kf £-4 449^4 Code m 

1)444^1 fly^l£-0 u^mi Code 4^1 jL .11 SI jDI) ^jLjuuJI ) ^ ^ 4 fi>^U 

Ci 11 ( i) jlj y 7 it *I±jlJ i g 1 a U U jj V14 Button 2 _Click 9 Buttonl_Click Event Procedure 

. 1 4 giStb i^jyLH >sS J 9 2 441 Stb >*£ Jl^kl 4^ ^ 


Sub £$yi £-0 Procedure £a j^Ia¥I ^ 1 mb J-tLjuuJf ) ^ ^#>4^) 49^ Jyjutly : f W4j4^ flj 


Label ^9^ ^4^0 I ♦ ^1 I ^ 4ay^9>Jf 4lj^kl 9 CL^jJJi 4lj^kl jt4 \ -*1111D ^uJy^l f -n! iin 

! Buttonshi Atl jJLa 4JJ49 


Parameter u^V' 


Public Class Forml k 

j Sub ^howOddOrEver ^(ByVal Star ^ As Integer) 
Dim 1 As integer 
Me.Labe11.Text = MM 


Sub flj*V' <> 


k For i =(start To 10 Step 2 

Me.Label!.Text = Me.Label1.Text & " " & i 
Next 


Sub 9 >I flPJlail jiL tj&\ 1 j£ll 


End Sub 

Private Sub Buttonl_Click(ByVal 

M * ill ^ /j-a> 4_) ^ u -fl—11 0 I JLd Si I yfl >g 

I CShowOddOrEvenftlip m 


End Sub 

Private Sub Button2_Click(ByVal . . 
1 ^ % <11 ^ i's-0 9 3—^ I ^iJ-c^l j-g 


Sub f 0*V' 


I dghowOddOrEvenf( ^^> 


End Sub 
End Class 


Argument 


Sub f 




0 




4j^>aJUD£11I 


Button2 






Buttonl 



Labell 
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<S>W\)lu)ti)luMaU pqunlU (^9 jiniJl 

: jf j7 ^LyuJl i^33T j-o 

Start 2 hi hi 1119 9? J4LU 4 J ShowOddOrEven ( ) £*JL Sub *i>*Ic>*c>h**i j 

ifA*k< 9? 1 JJULib L *3 i^jdLH 4>AAkr >»>*] <uXft VLL19 For ijjljSJLH iuaJLLl jljSJi jIj^. Ju 1 j-> 1 »J 

.2 Ij^2 jDI 

^ Integer i f ^3 J 0 Start (9 Htl i*i i il >)^ Prameter Jk*_ «i$ J _tLu 0 _ _ £ jil _ c*l k 

. ShowOddOrEven() 

J^Uu ^lAiiljytf) £4 Buttonl_Click ShowOddOrEven ( ) ^ 4 ^ 4 ) Sub pit ill ntf I 

4 fl|hf ShowOddOrEven ( 1 ) 1 94 4 illl ^ LliJ 4 g 1 j j9^j ^ 2 ^ 1 Argument 4 4 < 4 ♦ Prameter 

. t ^juutu ^ 

4 4 <4 » Prameter J^Uu l ^ 11 lift ^4 Button 2 _Click ^ 4^1 J^b Sub fU 4 Unl ^ L$-£ 

4 fl|hf ShowOddOrEven ( 2 ) j4^l 2 94 iilil ^|jb 4 L|jj 4 4 < i &*** 2 Argument 

. f WJUUTU ^2Jf 

. Start ^ 4^41 Prameter hi ih^JI |)Lu £94 £4 £if $24 £)Uj £94 £-4 2 9 1 Argument hi IH9JI f4yJ) j9£j £)f 4-1^ m 


f^uuuf C*J» Sub J* o**xt ^ Start u 4441 Prameter hi iiijJ) §f J^bUI jiCcSh pit »«i id) jl 


Sub ShowOddOrEven[(n 

Dim i As 

Integer^-/ 

Me. Label] 

L.Text = "" 

For i = ] 

l)to 10 Step 2 

Me.Label1.Text = Me.Label1.Text & " " 

& i 


Next 


End Sub 



^LLH JJLwkJbShowOddOrEven ( ) 


: CtAJz 


dflih ^ 4 »«»»»H ^tuu u htj jjdw jj 9 AjJjiJf jj ^jU jJLUl jl jJ^ juljjJI jLL^I J-Lfc 

For 4j,f>£2Jf -LLUf i-iU* 4*J» ^ I II HI »9 < ^LSLT *1^X1 

9 ShowOddOrEven (1) Argument 4 4 1 2 t 44 li> it 11 111)9 Start ^4441 Prameter hi iit^l 9! J^UUI ^ lii 

LL^juui ShowOddOrEven (2) 


9? J*bfa«fl ■I i>< mb 9 J Prameter hi 1119 9? J*oUL4 j! ntf 591U Procedure ch* j***> C44 

J4A fqyJLjf fti* flj-*¥l £jL». j-« Argument JLulLj&X 2 1 . *uj < Prameters JaJLutijJf 9 1 criUbUf f >>.;>»! 
jLb*>jjJfj ijijjiJf jfj^U liiJbJ'f ^t>>j ^ CiJ^ L*£ Procedure |1a fl f t 7 ml tif Lei fn i tti q 4 dj 11 q 

■ ( U>)t iAjSi ^Lui) Alb 9 ? Ctrfb 9 ? jj*7 q j-4 4 q»i j? ijj^o fO-J jl jJLc Argument dl4 
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oiu\^U (JutaaU 













<S>U*U\uNiNt«aU 





. ^4 ^44 ji duLzjJLkut &SJc f hii Sj-o Procedure 4^*1 0* &U*1 & 

$J jiM 9? jjLfaJ iM til ^ 4 4i>^3 dyU ^ |9 ST *■? ff llllf Ly! r< ft >y 

^(.i >>»7 >itb < f 4 : 4 ^ 4_»4jyiJf j 4 jti? lit ( 5, 35 ) Argument j I lihrl 

.ShowOddOrEven(5, 35) 

4 g i i Ji iii ii it ShowOddOrEven() j^£y Aif ^yLuuJf f lu^jj ^ 4$^ fiJi |7 t 

! jIjSJUI 4 1 I 4 r ^ Increment ftjbj 4 «t i$ Last AyL^y 


J 


Start 


Parameters ££«*l** 



Public Class Forml _ - 

Sub ShowOddOrEven(ByVal ^Start^As Integer , ByVal^as^ As Integer ,ByVal Increment As 
Dim i As Integer 
Me.Labe11.Text 

For i = 

Me.Label1.Text = Me.Label1.Text & " " & i 
Next 
End Sub 

Private Sub Buttonl_Click(ByVal ... 

M * ti J ^ Q-jO - ^LwLC H I (jJJ-g 

ShowOddOrEven^l, 10, 2 \ 

End Sub 

Private Sub Button2_Click(ByVal . 

’ ^ % (^1 ^ (j —0 J — H id I^j-C 

ShowOddOrEven^2, 10, 2\ 

End Sub 

P.nH PI a ct ct 


Integer) 


Argument ^ -V 




. *4 ♦“*" J;** Jih,t J;;- * 1 * ^ ^ t r « <f.8ift 

ShowOddOrEven (14, 500, 7) : UI 4J Argument 4 4 1 i jrt 1 irt^ fUjJuyb 
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A Qii polity ShowNumbers( ) fO-*"** c )**i J *** (*» 


jaj—c.$ jIjSJJI 4 ; 1 1 * ^ TextBox jaj Jj-ijli »r> JiLi» Increment a^bj ^ t;*j Last <uL^j -m - *j Start <u|jbj 

? ListBox l«ili t i >rt guLLJf 


: o <-yjJd - 


Public Class Forml 

Sub ShowNumbers(ByVal Start As Integer , ByVal Last As Integer , ByVal Increment As Integer) 
Dim i As Integer 
Me . ListBoxl.Items.Clear() 


r 

j JZ'll 

1=1 | \°\ | 

SB 

n 







For i = Start To Last Step Increment 
Me. ListBoxl.Items.Add(i) 

Next 
End Sub 

Private Sub Buttonl_Click(ByVal ... 

1 J I JLC^f I Q0J-C 

Dim Nol As Integer = Me. TextBoxl.Text 
Dim No2 As Integer = Me. TextBox2.Text 
Dim No3 As Integer = Me. TextBox3.Text 
ShowNumbers(Nol, No2, No3) 

End Sub 
End Class 


T 

\* 

VI 

1 A 

YY 

n 

T* 

Tl 

TA 

IT 


T (IfIjuJI fljo43 

lO fljLpjJI fljoaS 

^ biUjJI Jlad 


«LcLb 


ajIju Aq i i Jiii mi ShowSumNo( ) J 9 -Sb &LmJt a J (*i [[ ** 


guLJ jijSJJt d J « r ^ TextBox jaj Increment 64 Lj 4 gii^ Last Start 

? MsgBox iJLuij j$,i> i io ^ 


Public Class Forml 

Sub ShowSumNo(ByVal Start As Integer , ByVal Last As Integer , ByVal Increment As Integer) 
Dim i. Sum As Integer 


For i = Start To Last Step Increment 
Sum = Sum + i 
Next 

MsgBox (Sum) 

End Sub 

Private Sub Buttonl_Click(ByVal ... 

’ J I JLc I q2>j-g 

Dim Nol As Integer = Me. TextBoxl.Text 
Dim No2 As Integer = Me. TextBox2.Text 
Dim No3 As Integer = Me. TextBox3.Text 
ShowSumNo(Nol , No2, No3) 

End Sub 
End Class 



y»Vi / \ 


55 


djpsb\ 







































































pauniMo&tuull 

: Function 

4**l OJ'i ^ Lt Jlla . |0>I7* 4aLU ( ) g ;;. ... Code LLtjJ jLS U fit 4 JLk J Function iJia jiLciU LnjL» 

4*4*4fU:« Lfral>».7 ».(jJLc^L*. <£Jf. ^xnull 9 t J 4 >L*JI>►( >L*» 9 * £_•>« i^Luuuj 9 ?Ijiis h.xo 

. ft *7 ... alt L^l^l 9 ? gwL.j4JI Ctlq.ltl 

Function ^1-^1 if- 


j*. ( wLjjLLH ) jiLfcJff 44144 Function j 
. jLu£94I4J9 UI^Im 9 ?aJIjJI 4 4. t>94 jitio£ 9^4 jt J4LU9^j 7 411 FunctioniiljJI |<uuil ju 2Name k 

.Sub ^ li inja L+£ Data Type jl*j £94 4J9 f ^ ft i«7 >»7 ^Itl ut< ...j tf Parameters I 

.Function itljJI j* ( Value ) Lx+ijJi 4 a■4tb LdLtl jU*JI £94 jjJI itldJI £94 4aJ& Data Type m 

■Function ailjJI flf t7 ml t7f t n <7 >» ^Itl Ctlq»1 »7>(9 j_«l 9 ifl ii4^a->»a Code n 
OUai £94 jil 9 J jL* £ 9 ia 4 JIjJI Jida U£i 4 jiLc*l ^ 4 . ^9 Function itljJI ( ojJLsJI ) 4 a ■ 4 tl Value O 

. ( Name ) Function itljJb Lal^l 


Function Name ( Parameters ) As Data Type 
Code 

Return Value 
End Function 


.aJfjJf j*. (mLjjLLH) jiLtVI 44 I 4 * End Function p 


jAt jifi 7 >rt J1U ,>a | 


V yyjtf n 


tiLuyJ* 4Jb J5LS* £-0 Button jJLLM *+^ Label ^ guLUf Text Box 

"I- 1 - ! c^il fi* 

Parameters u£*l*-* u^V' w 

~ S^ Q: 


Public Class Forml 


J 


Function Sum(ByVal First As Single, ByVal 
Dim Total As Single 
ITI Total = First + Second 
fl Return Total 
End Function 


zond As Single) As Single 



Parameters u^ 1 ^' 





nJ 1 5-m^. dID. 

!Z=! 

I 0 

‘ 


Private Sub Buttonl_Click(ByVal ... 
Dim X As Single = Me.TextBoxl.Text 
Dim Y As Single = Me.TextBox2.Text 
P Me.Label4.Text = Sum(X, Y)„ 


End Class 

^ao2 j AJ) jJ) f IC'Huj) 


~N. 

Buttonl 

^_ s 


^ Argument 




: j 4 £+Lu*11 *$£J1 0 

. Second $ First L*4 &LL q i i J1 Si >>1^ Single gr »i * ui j$iJ1 j*+JUi £$+11 £-0 Sum AJf jJf C*U*U 

.Single gr 1 injjuiJf Second9 First Sum ( ^hi >09 ) j^lLoUla k 

i 0 j a W jJU 9^9 4 Sum *11*11 £9 ^ jjJI Single gt ir>jjJULif £$+11 fr* Totaljjfltl ^ I 

jJLc. Sum *11*11 ( ajJUlM ) Lx+ljll 

v»li / \ iUeA 5 6 t>iUH oiu\^n t) iaohH 









































































u)\tt\dupA) pquidH juuH 

.Total = First + Second : Total jii i g 11 Second 9 lust jLLq^JiJi gub jje m 

.Return j-okf 10b Total 4 *J» £ 1^,1 n 

ii util jrti < Buttonl_Click Single £9^ £-0 Y 9 X ^flt) <>a O 

.4 ^ijUt TextB ox2 9 TextBoxl jaUi 1 trt 1 g ^ 1 4 ) Jii 

-1 Y 9 X JliSi id! juu 4ULT^9 Label 4 Sukr Text 4 i wil'Nlt Sum iJfjJf <>* jniini ^ p 

.Sum SlJIjJJ Argument 

. Function SJtjJt Parameters Ct^Ul.u 9! uU 444 j jUj £$i jUj £$i £*o fcjjj if V C)^SJ Jl jj^jaJt V 

4 g 1 2 b 9! iJfjJI Data Type £9^ jm £-0 ( g( 1 g 11 Data Type £)Uj £9^ j9^Li jjjj 11 J-o ^yyJ v 

■Wb* 

.LaIq < *»« || 1 J' ^ j; 6.1 1 ii « ^ 1 “** Function 9 Sub ^ 9 ttii J jiujV 


: Function 4JI1UI9 Procedure 4 ^JWf Constants Variables tit t**a* oe ^ 


Function 

Sub *L*VI 

Constants 

Variables cj|jj*UI 

‘ L$J 5 _ 4 jS AJ (j-laj V 

c L$J 5 _«ja o^ijirt Vi V 

.Vn 4 n^ I9a.n^b ^grjluuJj L-ajIj 
‘ 4 ^ c#^* >“'jVl 

4je o^vi 

JJ—uj f l— 2 ! J 1 ^V' 

jc-jUjj]! ( JJL2u) 

4_> <uj^aii »t <■%-., „i qSaj 

^uU If! j $j£1 ill J 

Sj£li 5 l ^ *Uu 2 LgJ qjuJ 

1^2 o^jJj <9*2 V Lf& 

0j12 

l^j AjjA-Ai' jkjSIt ■>' iaJLuil o^aj 

SjSlil! 0^ 

l^j jXjSJt iaJL at o^aj 

SjSI ill J 

j* Data Type ohi t-h 4 s 

AajaII (jl±i £ jj Qduij 

Data Type chi 4 ^ cyh 

A 4j^j 4 1 jju V l^2V 

Data Type d) 4 w L 4 S 

C-Lujlld 

Data Type 04 w '-4 s 

t-luAl* 

AajS LjJ o^aau V l^Sf 

J_A^ fjl UljSj (ji j>AJ V 


f 1 j-uu J-aAi ^i l_u£j 

jLa-jj (JJ—OJ jp 

(j^aj^Vilj 

lj^LqIjlaj JajLuj j L9J ii 

CjIj-JlLa jj Sija*a jj£j A 4 

j) 

j iajLujJ l^J qj_£j ii 
dilj-jLLa jj Sij ^-4 i2 

Jlji j| CjjIjj j| 

Cj^UUuj jl JaiLuuj IgJ 

Cj^Lobuo jj iajLuj j l^J jjojJ 

uijSj o' V 

i^ji j j^iji ji^wi 

l^jli i^J JJjjji jJouj ^i ljj£j 

tr* cr* ^ O' J> 4 J V 

I^jI j j^lji jlau 

tr* cr* ^ L h^ > O' J> 4 J V 

4jI j j^tjj jiawi 
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4JLm#j jj > i >rt ^ guUJI A jjulM u)j >rt o uLmJ. ^1 ^ Lllf) irtT i |«j 


: A wyj£i se 


*. ‘.‘Jj ‘-^ * 1 fiA uLitt^ Alb jiUttl JiLi» £Ujg Button j^l jj jl£ j <i»t( jmA Msg Box 


Public Class Forml = 

j Function Factorial(ByVal Number As Integer) As Integer 
Dim i As Integer 
IY1 Dim res As Integer = 1 
For i = 1 To Number 
res = res * i 

Next 

IY 1 Return res 
End Function 

Private Sub Buttonl_Click(ByVal ... 
n MessageBox.Show(Factorial(8)) 

End Sub 
End Class 


Uai' 

40320 



OK 





0^ iiiS ujjtdD il i 


0 S3 





Buttonl 


: jt jJb ij^LyyJI i$£Ji j-o 

■ Number OJ^-lg ( u - “»j gf ) rt q»i J»<i» mlg Integer £g_LJI Factorial Ciuirij 

.Integer Number £4 Factorial AJfjJJ ( hi >09 ) J*oUl*o k 

.Integer jtjSJSJt i 1 1 q 1 f ijjfltl tfiA'iS I 

< Sum iJijJt jUj £$y jJJI Integer jqjULJf J-o jjulJI y^j in 0 yiLyy^ guly fryj *■?1 res ^fltl m 

.L^UjJLuiI jJLc, Factorial iJtjJ! ( djJUlN ) Lx+tjJ! 4***1! jJU $yfr$ 
£i 4 iJtjJt fUjyyy) jju MessageBox aJLuj j j$ii 1 in ^ Factorial AJfjJf £-0 ( 4^iifl ^ n 

.Factorial AJijJJ Argument J A 4 ^iifl J( 1 il mi jju 
4 JLuij j$ii 1 in &+*!$ MessageBox 1 i*\ mill i 1 1 1 U Show( ) AJjJtXi ii ml ^ O 

.Show() 4Ji*JJ ftlhf tl uU u 11 4 yL»<)JL.K.q MessageBox 


TextBox jaj j^iii in ^ ^ U ^ y^j ih 0 yUJ» A ^ J-iLjuyJf hi t |U ^ 0 | 

y*LuyJ» Jjta JMjk J-o i^O^ Button j-q? ^ aJLa £Uj§ MsgBox dJLujj j$.i j in ^ guLUf 

« 4^ inU 


Public Class Forml 

Function Factorial(ByVal Number As Integer) As Integer 
Dim i As Integer 
Dim res As Integer = 1 
For i = 1 To Number 
res = res * i 


Next 

Return res 
End Function 

Private Sub Buttonl_Click(ByVal ... 

Dim (No As Integer = Me.TextBoxl.Text 
MessageBox. Show (Factorial(fNoj)) 

End Sub 
End Class 
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<S>U*U\uNiNt«aU 




^gcjLLJf 0 UjJai t i wi*t AjJb yUJ» <U*4jdi *$£ 2uil£§ fqig win f*i : 1 I 

? a»U 4) yUy^ iJU £-0 £Uj$ Button j-of jj jJtuJi jJx ^0^ MsgBox AiLutij J§< 


Public Class Forml 

Function Area(ByVal radius As Single) As Single 
Const pi As Single =22/7 
Dim res As Single 
res = pi * radius A 2 
Return res 
End Function 

Private Sub Buttonl_Click(ByVal ... 

MessageBox.Show(Area(5)) 

End Sub 
End Class 




@ 23 


78.57143 


OK 


0 uuu 



-r 


^ 4 JL±*t fQ+j U ^ UjJai t i iOjJb A^Lyyy yLyyJ» ) ♦ ^ ^Lyyil *§SJI hh : J 11 yjjJi 

£^4?) Button j-*f jJU jJLUf «lL£ £Uj§ MsgBox 4JLuij j$iii in ^ guLUf Text Box j^y J 94 JL 

! A»LyyJi( yUy^ 4Jfy ^ 


Public Class Forml 

Function Area(ByVal radius As Single) As Single 
Const pi As Single =22/7 
Dim res As Single 
res = pi * radius A 2 
Return res 
End Function 

Private Sub Buttonl_Click(ByVal ... 

Dim Rad As Single = Me.TextBoxl.Text* 
MessageBox.Show(Area(radius)) 

End Sub 
End Class 



|: Predefined Function JljJJI 

‘j) : * <<ii ^U^Lwl |«lt) < 1 * ji^SU Jgj ij nil i o UjUjJuuil |«li 4. A it 1 jjJ 4JjJU JIjj ^ 


MessageBox 


Show() *IUI3f 


.Show() 4 -TIjJJ oLtajUf JaJUojJI . . >»> 4ab»JL** MessageBox 4JUu j jJLc »1 a JiU. 

MessageBox. Show (” ^ <3 LJ Lx._lJ I /* M , ” jl_j jLj> pa.^.JL^-o ”) \4U* 


•cSjW*! o LJ L»_»_l I J-^uJi ‘ 

.( AiLiS ) tSjLul) jAj t AjU-jil Jjaj " jl_>jl> pOiJJiiL^ J-^uJi 
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yuoill 

: IsNumeric() <UI JJI Lula 
False J JL+ij ju <>a<a» C*LS bl 4 JLk ^ True Ul U^fL ) 9 * iuji, ^ Ja 4«J jLLLII j^> jJLc 

J4A & Mtj a H ^ a a ■ rt n CJLS lil 4 JLk 
M e.Label 1. Text = IsNumeric ("five") : UjlcjU y 
rt a.rtl jJLc *9 ^L«ij >-, ,..,r "five" a a .all j* Labell jljJ-aJI £_.>« False guLLK U^LftjJLuuf jJLa 

. ^Mll JiU. ch» 

Me . Labell. Text = IsNumeric (5) : y 

. 5 a a ■ a t) j* Labell jfgJ-aJf True guLLK U$UjJLmi1 jJLa 

Me. Labell. Text = IsNumeric (" 5 ") : U y 

j£*t jJLTj iL+jj >-, »,,t "5” a a. all j» j-« Labell jljJ-aJI gjj* J^b True guLLK U|UjJLmi1 jJLa 

.(jianll Jiu. i**i, 4**4 jt JuJjJ-1 aq.flTi oia 

|: Now( ~ <UIaJI UU 

. j'j::" c *' j »«>» u cJjJij gujUJi ji»tj ii >»i ^a £j c * 

; lAjlc-iluj) y 

Me.Labell.Text = Now() 

MessageBox.Show(Now()) 

MsgBox(Now()) 



.1 ^ •slli ( jlc- (j* lals (jA$Sf! i_ijLlt Function J'j-il' 

- 5 - .^U l$J (jij jj V Function 4lb ($i <j»a ^ Now() Ja» JaiU-j j\ jib V JtjJ bUA 

.(j rtt i rtVi 4l*a j\ Jjaj V Sub ^'f'jaV' 

.Sub (> f 'j*! jjj*j Event Procedure biJail *'j^! J 

Function 4lb j' Constant ^b j' Variable jj* 1« j' a^jS &$£» o' W Procedure p 'j*V' Jau-j j 


4lb MsgBox () 
Class < MessageBox 
MessageBox uLIaUI Jib 3ik« Alb Show () 
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Cyber bullying 


: 4+iM : St/l 

A^Lyyil {y* kil Ci¥( CtUj) I f V JJLuug *Lit£§ Jj Cy^yVI £4 j^UUI iltLJ^I 

2 ^ J*UUf CiLdtiUj L LJLLi 9 LLSlJ jjJ ^jJ) gij JU^i-TI ti* > ^ «»».'. )jj J 9 JJI 9 ai«qli<$ 4lji*l 

. j4 * jjulltl. jajll. u*i a. »rti. Ah ^lov ..> i*,* ^ijj iqjiui c*o^ju» c*u*lui r d.-‘ -“°3 

j If I d »q J »q i jl ^ j$l i»»i'i 9 j 1 mil 9 1 i iii'i 9 fq I * 7 't jf ^jhi m't CuijIaTH JiL^ 

• jj‘ ‘ >M jjU 4 J|j li'i jl jJU) lli> CtLqj 11 0 


: ja^Ju <Li^j 7 y W JaJUuugJI 


.jltj i>7tl . I 
.rtJLb^i .r 
■C^jw f 


:^jb U LjU ijdS Jto+SJ*i j±L*lt 1 


> , > ^tf ,q 


ft OutolSJW iaJLuajJ’ : |£d**U <Uijj£12l : WIS 


Jlijt <LJLSU 2 ^ JjLlmjJI ajUI* 4jJI 9 Jl,q; ,,.lg JLlmjI f, ' c Z j-« : E-Mail Ajjdt . 1 

. JiUvjJi OJLLf CtLiU 

j>q 4$4jJf 4^) 4ijLwJll JLuujI jq71 > 4 tit il 1 q 1161 r j trtj q £jJa ^ * J - « : Forums <Lijj7 f t¥f 6ib t 7 < t> ■ f 
JjjaiAt $1 4—tl < V K JjJa jJL^f jqjjJ* JL^jf tijbJ* i^)M> : Instant Message 4aj9 ^JI JJLlmjJ) .f 

.qLuu Lq 4j^j4l — 1 "» 4b jjjy jq(J> J “* : Bloging .9 

■ yLyyJ>l y4»Ld jrt it i ti i f 2u&i± CiU<) 1 * 4 j uilt ^L»juy : Face Book Jig q.rlq7».y( 2^>9-I> .4 

: tH4j£J*l Jfi-i: UJti 

jtfjJKa ^t$j7 V 1*1 j t *711 d| irt»> to 0 -aZt* tjlii hio fLqbutil ^) i »«7 ml"^ tjL£ : (Anonymity) j2£J)tt w ^ MI . 1 

" wbukH j-q 

" jJL^f j'- “• jyq -* j) ^-3 4 4 >.f j-q^ <Luf JhA JJLlmj " : (Harassment) ^; ‘3 j* f 6 LLLuUI . f 

" J>S^U J&44W j^Ll 444t>2£iy( CiUbLbat JLSbit (>q J&qq* " : {Cyber stalking) ^LL»)UI . f 

#Q*+» A " 3 7»,4S ; 4.1 J ,»•, (Flaming ) JiiTI 9 I .i 

"’ji im» J f ‘“ - j+£i 4it m j'- ^ “* 6U3 11 4 j HI7 " t^L£ \ (Outing) j7 7 W j;j) ■ * ** . A 

"ZutolSJI JaJLy« 9 JiU. a*9* j- - jAti "ijb-c,: (Exclusion) Ji^LSjyt f‘-• • . 1 

">15) 9« 444^4 JJUbj JUbjl " frc. ijU* : (Threats Cyber) AaAjJJi .V 


JlDl^cD yoli / \ i\x^i 


^lin dvxfiU 







WuniM (^9 juutl 



>» dLiii tj&a *«%s 


M 4 p 11 ^4 j^l t ill $$ * ( 4 ^ c ) £b-o lujJ ^LS' U^4 i>dyyJI 4^lft 4b>l ^Lly .A 

0-0 £-jju^ jk 4ihtl 


|I »4^Lo 4 1 nt |f 4+amU 4 0 11 1 0 jlL" joLlj¥f| (i^l 0-0 guj-o ^IoomUoL £JJo| < gri 11 ml Yj$j-o 4 p 11 4 I 44 I 

. " 4 JL 0 fjb^r 0^>JUl joliyuikl |l ftfLyi §f 43AJ 1 irt rtl 

|f <Li|i 1 tl j^| wii fl |f <^|j 7 ST yi lUjdl | 4 p» QAjftitl jrt f t 4 JJk |f Lo(i> CibUj ^ 44.1 ♦ 

.4^JJLW ^Jlft |f ,i^|^2iLM CiL-0|^f 

.oj^» 4 J 0 U 0? ^ ft-jLLH JiU*j 44y£ . 11 
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